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SECTION 5 

MATH AND NUMERICAL MANIPULATION PROGRAM 

REFERENCE 
NUMBER PROGRAM PAGE 

BC1 Floating Point Math Package 5-1 

BC2 Floating Point Format Conversion Package 5-5 

BB1 16-Bit Multiply (32-Bit Result) ' 5-9 

BB2 MPY16 16-Bit Multiply - 16-Bit Result . . . 5-12 

BB3 16-Bit Multiply - 16-Bit Result '.'.'. 5-15 

BB4 SMPY16 16-Bit 2's Complement Signed Multiplication . . 5-19 

BB5 Binary Multiplication - 24-Bit 5-24 

BB8 16-Bit Division - 16-Bit Results . . . . 5-29 

BB9 DIV16 16-Bit Division - 16-Bit Result '.'.'.'. 5-33 

BB10 BIN to BCD Conversion Routine " 5-36 

BB11 BCD to BIN Conversion Routine . . . . 5-41 

BB12 BCD to/from Binary Conversion 5-45 

BB14 Gray to Binary Conversion 5-50 

BA1 BCD Sum for 8008 '.'.'. 5-54 

BB15 Log Base 2 5-57 

BB16 Digital to Analog Conversion for Eight Outputs 5-62 

BB17 Binary to HEX Routine . . 5-67 

BB18 Binary to BCD Subroutine 5-72 

BA2 HEX to Decimal Conversion 5-76 

BB19 BCD Input and Direct Conversion to Binary Routine 5-78 

BA4 BINDECBIN - Binary to/from BCD 5-81 

BC3 MATH - Fixed and Floating Point Arithmetic Routines 5-83 

BC4 Elementary Function Package 5-85 

BC5 8080 Floating Point Package with BCD Conversion Routine 5-87 

BC6 8080 Least Squares Quadratic Fitting Routine 5-89 

BC7 Floating Point Procedures 5-91 

BC8 PL/M Floating Point Interface ...... 5-93 

BC9 Floating Point Decimal and HEX Format Conversion 5-95 

BB20 N-BYTE Binary Multiplication and Leading Zero Blanking 5-101 

BA5 Subroutine DMULT (Decimal Multiplication) 5-107 

BA6 BCD Multipl i cat ion . . . . 5-109 

BB21 MUL/DIV Mu 1 1 i-Preci s ion Pack for 8080 5-115 

BB22 DMPY - Double Precision Multiply . . . 5-120 

BB23 16-Bit Square Root Routine , 5-123 

BC10 Floating Point Square Root 5-127 

BB24 SQRTF - Calculates 8-Bit Root of 16-Bit Number . . 5-133 

BC11 Subroutine SQRT 5-137 

BC12 Fast Floating Point Square Root Routine 5-141 

BB25 Natural Logarithm 5-146 

BC13 Subroutine Log - Common Logarithms 5-148 

BB26 Approximating Routine 5-153 

BB27 SIN X, COS X Subroutine 5-158 

BB28 RMSTF - Integration Routine ' 5-162 

BB29 32-Bit Binary to BCD Conversion, Leading Zero Blanking 5-167 

BB31 Fixed Point CHEBYSHEV Sine and Cosine for PL/M Users 5-171 

BB32 32-Bit Divide Subroutine 5-175 

BB33 8-Bit Multiply and Divide [ [ [ ' ] 5-177 

BB34 Double Precision Integer Arithmetic Package 5-180 

XMATH - 8080 Floating Point Extended Math Package 5-183 



BC14 
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BC15 Floating Point Package for Intel 8008 and 8080 Microprocessors . 5-187 

BB36 Random Number Generator 5-189 

BB37 8-Bit Random Number Generator 5-192 

BB38 16-Bit Random Number Generator 5-195 

BB39 PL/M Histogram Procedure and Random Number Generator 5-199 

BB40 RANDOMSBITS - Random Number Generator 5-204 

BA11 Factorial of a Decimal Number 5-209 

BA12 BCD Up/Down Counter 5-212 

BB42 3-Byte Positive Fractional Multiply 5-213 

BB43 Algebraic Compare Subroutine 5-214 

BB44 8080 Double Precision ARC Tangent 5-216 

BA13 ARC. TAN 2 Subroutine 5_22 ° 

BC16 Floating Point Interpreter 5-222 

BB45 12X12 Multiply 5_228 

BAH MBCD: N1 Bytes X N2 Bytes Decimal Multiply Subroutine 5-232 

BD1 Histogram 5-238 

BD2 ASCII to EBCDIC and EBCDIC to ASCII Converters 5-240 

BA15 Conversion of Scientific to Easily Readable Notation 5-242 

BD3 DTMHEX 5 " 249 

BA16 8048 BCD Multiply 5-252 

BB46 Hex to ASCII Conversion 5-256 

BC18 Optimised Ultra Fast Floating Point Package 5-260 

BC19 ASCII String to Intel Floating Point/Intel Floating Point 

to ASCII String 5 " 262 

BC21 8080 Floating Point A b 5-274 

BC22 Floating Point Utility Programs for Use with FPAL.LIB / SBC-310 

Floating Point System for Use with SBC 80/20 5-282 

BC23 Relocatable FMath and XMath, 8085 Floating Point Package .... 5-286 

BB47 8048-DIV — Division Routine 5-288 

BB48 ARRAY ADDRESSING SUBROUTINE AND CALLING MACRO 5-292 
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SECTION 5 



MATH AND NUMERICAL MANIPULATION PROGRAMS 



REFERENCE 
NUMBER 



PROGRAM 



PAGE 



BA1 

BA2 

BA4 

BA5 

BA6 

BA11 

BA12 

BAO 

BA14 

BA15 

BA16 



BCD SUM FOR 8868 S-S4 

HEX TO DECIMAL CONVERSION s-7 fc - 

BINDECBIN - BINARV TO/FROM BCD. = t -p± 

SUBROUTINE DMULT < DECIMAL MULTIPLICATION) ' ^-107 

BCD MULTIPLICATION Fv-109 

FACTORIAL OF A DECIMAL NUMBER • • • -^-^ 

BCD UP/DOWN COUNTER ' 5-C12 

ARC. TAN 2 SUBROUTINE S-220 

MBCD: Nl BVTES X N2 BYTES DECIMAL MULTIPLY SUBROUTINE S-232 

CONVERSION OF SCIENTIFIC TO EASILY READABLE NOTATION 5-242 

8048 BCD MULTIPLY 5-2^ 
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BB1 16-BIT MULTIPLY < 32-BIT RESULT) 5-9 

BB2 MPV16 16-BIT MULTIPLY - 16-BIT RESULT 5-12 

BBS 16-BIT MULTIPLY - 16-BIT RESULT 5-15 

BB4 SMPY16 16-BIT 2'S COMPLEMENT SIGNED MULT I PL I CRT I ON. . . 5-19 

BB5 BINRRY MULT I PL I CRT I ON - 24-BIT 5-24 

BBS 16-BIT DIVISION - 16-BIT RESULTS 5-29 

BB9 DIV16 16-BIT DIVISION - 16-BIT RESULT 5-32 

EBIO BIN TO BCD CONVERSION ROUTINE 5-36 

BB11 BCD TO BIN CONVERSION ROUTINE 5-41 

BB12 BCD TO/FROM BINRRY CONVERSION 5-45 

BB14 GRRY TO BINRRY CONVERSION 5-50 

BB15 LOG BRSE 2 5-57 

BB16 DIGITRL TO ANALOG CONVERSION FOR EIGHT OUTPUTS. .... 5-62 

BB17 BINARY TO HEX ROUTINE 5-67 

BB18 BINARY TO BCD SUBROUTINE 5-72 

BB19 BCD INPUT AND DIRECT CONVERSION TO BINARY ROUTINE . . . 5-78 

BB28 N-BYTE BINARY MULTIPLICATION 

AND LEADING ZERO BLANKING 5-101 

BB21 MUL/DIV MULTI-PRECISION PACK FOR 8080 5-115 

BB22 DMPY - DOUBLE PRECISION MULTIPLY 5-120 

BB23 16-BIT SQUARE ROOT ROUTINE 5-123 

BB24 SQRTF - CALCULATES 8-BIT ROOT OF 16-BIT NUMBER 5-133 

BB25 NATURAL LOGARITHM 5-146 

BB26 APPROXIMATING ROUTINE 5-153 

BB27 SIN X, COS X SUBROUTINE 5-158 

BB28 RMSTF - INTEGRATION ROUTINE 5-162 

BB29 32-BIT BINARY TO BCD CONVERSION, LEADING ZERO BLANKING. 5-167 

BB31 FIXED POINT CHEBVSHEV SINE AND COSINE FOR PLM USERS . . 5-171 

BB32 32-BIT DIVIDE SUBROUTINE 5-175 

BB33 8-BIT MULTIPLY AND DIVIDE 5-177 

BB34 DOUBLE PRECISION INTEGER ARITHMETIC PACKAGE 5-180 

BB36 RANDOM NUMBER GENERATOR 5-189 

BB37 8-BIT RANDOM NUMBER GENERATOR 5-192 

BB38 16-BIT RANDOM NUMBER GENERATOR 5-195 

BB39 PL/M HISTOGRAM PROCEDURE AND RANDOM NUMBER GENERATOR. . 5-199 

BB40 RANDOM$BITS - RANDOM NUMBER GENERATOR 5-204 

BB42 3-BYTE POSITIVE FRACTIONAL MULTIPLY 5-213 

BB43 ALGEBRAIC COMPARE SUBROUTINE 5-214 

BB44 8080 DOUBLE PRECISION ARC TANGENT 5-216 

BB45 12 X 12 MULTIPLY 5-228 

BB46 HEX TO ASCII CONVERSION 5-256 

BB47 8048-DIV — DIVISION ROUTINE 5-288 

BB48 ARRAY ADDRESSING SUBROUTINE AND CALLING MACRO 5-292 

BB49 PL/M MULTIPLE PRECISION ARITHMETIC 5-307 

BB50 MATH48 - EXTENDED PRECISION ARITHMETIC 5-309 

BB51 32 X 16 DIVIDE SUBROUTINE - DV3232 5-321 

BB52 BINGRY - BINARY TO GRAY CODE CONVERSION SUBROUTINE. . 

BB53 MULT I PLV/D I V I DE SUBROUT I NES : 

-MULTIPLY 24 BIT FOR. 48 BIT QUOTIENT 

-DIVIDE 48 BIT BY 24 BIT 5-: 



•_'_:• ii. i 
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BB54 



SQUARE ROOT FOR NCS-48 5-231 



8/79 



BC1 

BC2 

BC3 

BC4 

BC5 

BC6 

BC7 

BCS 

BC9 

BC10 

BC11 

BC12 

BC13 

BC14 

BC15 

BC16 
BC18 
BC19 

BC21 
BC22 



BC23 

BC24 
BC25 
BC26 
BC27 



BC28 
BC29 
BC30 
BC31 
BC32 
BC33 



FLOATING POINT MATH PRCKRGE 

FLOATING POINT FORMAT CONVERSION PACKAGE 

MATH - FIXED AND FLOATING POINT ARITHMETIC ROUTINES 

ELEMENT ARV FUNCTION PACKAGE 

'808O FLOATING POINT PACKAGE WITH BCD CONVERSION . . 
8080 LEAST SQUARES QUADRATIC FITTING ROUTINE. . . . 

FLOATING POINT PROCEDURES 

PL/M FLOATING POINT INTERFACE 

FLOATING POINT DECIMAL AND HEX FORMAT CONVERSION. . 

FLOATING POINT SQUARE ROOT 

SUBROUTINE SQRT 

FAST FLOATING POINT SQUARE ROOT ROUTINE 

SUBROUTINE LOG - COMMON LOGARITHMS 

XMATH - 8080 FLOATING POINT EXTENDED MATH PACKAGE . 
FLOATING POINT PACKAGE FOR INTEL 8008 AND 8080 

MICROPROCESSORS 

FLOATING POINT INTERPRETER 

OPTIMISED ULTRA FAST FLOATING POINT PACKAGE .... 
ASCII STRING TO INTEL FLOATING POINT/ 

INTEL FLOATING POINT TO ASCII STRING 

8080 FLOATING POINT A+B 

FLOATING POINT UTILITY PROGRAMS FOR USE WITH 
FPAL. LIB/SBC-310 

FLOATING POINT SYSTEM FOR USE WITH SBC 89/28 . . . 
RELOCATABLE FMATH AND XMATH, 

8085 FLOATING POINT PACKAGE 

FLOATING POINT CONVERSION ROUTINE 

LINEAR SYSTEM < GAUSS ELIMINATION) — LISY 

GAMMA FUNCTION SUBROUTINE 

ACQUISITION OF A DECIMAL NUMBER FROM MDS CONSOLE, 

CONVERSION TO FPAL FLOATING POINT NUMBER 

AND VICE VERS A 



5-1 

5-5 



5-87 

5-89 

5-91 

5-92 

5-95 

5-127 

5-137 

5-141 

5-148 



DOUBLE PRECISION FLOATING POINT PACKAGE 'X'FPAL 

DISCRETE FOURIER TRANSFORM 

FLOATING POINT CONSTANT CALCULATOR - FCONbT 
FPAL86. LIB - FLOATING POINT LIBRARY .... 

FPAL - EXTENDED MATH PACKAGE 

FLOATING POINT LOAD AND STORE SUBROUTINES . 



LIB 



•183 



5-187 
5-260 



er,_ •":■£••'■> 

5-274 



5-282 

•Sv — O O <T 

5-301 
5-303 
5-305 



5-311 
5-313 
5-315 
5-317 
5-319 



BD1 HISTOGRAM 

BD2 ASCII TO EBCDIC: AND EBCDIC TO ASCII CONVERTERS. 
BD3 DTMHEX 



5-240 
5-249 
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inteL 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM **. no 



BC1 



D 4004 □ 4040 H 8008 D 8080 Q 3000 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



FLOATING POINT MATH PACKAGE 

Package contains subroutines for Addition, Subtraction, 
Multiplication, Division, Negate, Absolute Value and 
Test of Floating Point numbers. 



None 



None 



Program offered 
on diskette only. 



Registers Modified: 



RAM Required: 
63 bytes 



ROM Required: 
768 bytes 



Maximum Subroutine Nesting Level: 



L 



Assembler/Compiler Used: 
MAC8 



Programmer: 

C.E. Ohme 



Company: 



Address: 



44750 Winding Lane 
Fremont, Ca. 94538 
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8008 BINARY FLOATING POINT SYSTEM 

THE 8008 BINARY FLOATING POINT SYSTEM CONSISTS OF A SET OF 
SUBROUTINES DESIGNED TO PERFORM ARITHMETIC OPERATIONS ON 
NUMERIC QUANTITIES REPRESENTED IN MEMORY. 

EACH NUMERIC QUANTITY OCCUPIES FOUR CONSECUTIVE WORDS 
(32 BITS) OF MEMORY. THE LARGEST MAGNITUDE THAT CAN BE 
REPRESENTED IS APPROXIMATELY 3.6 TIMES TEN TO THE 38TH 
POWER. THE SMALLEST NON-ZERO MAGNITUDE THAT CAN BE 
REPRESENTED IS APPROXIMATELY 2.7 TIMES TEN TO THE MINUS 
39TH POWER. EACH NUMERIC QUANTITY IS REPRESENTED WITH A 
PRECISION OF ONE PART IN APPROXIMATELY 16,000,000. 

THE SOFTWARE CONSTITUTING THE FLOATING POINT SYSTEM IS 
DIVIDED INTO TWO SECTIONS, EACH OF WHICH OCCUPIES 3 BANKS 
OF ROM OR RAM. SECTION 1 IS INDEPENDENT OF OTHER SOFTWARE. 
SECTION 2 IS OPERABLE ONLY WHEN SECTION 1 E3 AVAILABLE IN 
MEMORY. IN ADDITION TO MEMORY REQUIRED FOR PROGRAM, 63 
WORDS OF RAM ARE USED AS SCRATCHPAD. 

SOFTWARE SECTION 1 CONTAINS THE FOLLOWING SUBROUTINES: 
LOD - LOAD SPECIFIED DATA INTO THE FLOATING POINT 

ACCUMULATOR. 
ADD - ADD SPECIFIED DATA TO THE FLOATING POINT ACCUMULATOR. 
SUB - SUBTRACT SPECIFIED DATA FROM THE FLOATING POINT 

ACCUMULATOR. 
MUL - MULTIPLY SPECIFIED DATA TIMES THE FLOATING POINT 

ACCUMULATOR. 
DIV - DrVIDE SPECIFIED DATA INTO THE FLOATING POINT AC- 
CUMULATOR. 
TST - SET CONTROL BITS TO INDICATE ATTRIBUTES OF THE 

FLOATING POINT ACCUMULATOR. 
CHS - CHANGE THE SIGN OF THE FLOATING POINT ACCUMULATOR. 
ABS - SET THE SIGN OF THE FLOATING POINT ACCUMULATOR 

POSITIVE. 
STR - STORE IN SPECIFIED MEMORY THE VALUE IN THE REGISTERS 

AS RETURNED BY OTHER SUBROUTINES. 
INIT - MOVE CODE FROM ROM TO RAM IN PREPARATION FOR 

EXECUTION OF THE MUL AND DIV SUBROUTINES. 

SOFTWARE SECTION 2 CONTAINS SUBROUTINES WHICH ARE USED TO 
CONVERT DATA BETWEEN THE BINARY FLOATING POINT FORMAT 
AND A DECIMAL FORMAT SUITABLE FOR ENTRY OR DISPLAY ON 
INPUT/OUTPUT EQUIPMENT. THE DECIMAL FORMAT IS STORED IN 
MEMORY AS A SERIES OF CHARACTERS. RELATIVELY SIMPLE INPUT/ 
OUTPUT ROUTINES MAY BE USED TO INTERFACE THE MEMORY- 
RESIDENT CHARACTER STRINGS WITH ANY TYPE OF PHYSICAL I/O 
DEVICE. 
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THE CHARACTER STRINGS CONSIST OF BCD REPRESENTATIONS OF 
DECIMAL DIGITS AND ARBITRARY REPRESENTATIONS OF +,-,., 
AN EXPONENTIAL SIGN (LETTER E), AND SPACE. CHARACTER 
STRINGS MAY NOT CROSS MEMORY BANK BOUNDARIES. AN INPUT 
STRING IS THEREFORE LIMITED TO 256 CHARACTERS. AN OUTPUT 
STRING CONSISTS OF 13 CHARACTERS. 

THE OUT SUBROUTINE GENERATES CHARACTER STRINGS IN 2 FORMATS; 

THE CHOICE OF FORMAT DEPENDS ON THE MAGNITUDE OF THE VALUE 

REPRESENTED. 

MAGNITUDES BETWEEN .1000000 AND 9999999. ARE REPRESENTED 
BY A SPACE OR MINUS SIGN, SEVEN DECIMAL DIGITS AND AN 
APPROPRIATELY POSITIONED DECIMAL POINT, AND FOUR SPACES. 
MAGNITUDES OUTSIDE THE RANGE ARE REPRESENTED BY A 
SPACE OR MINUS SIGN, A VALUE BETWEEN 1.000000 AND 9.999999, 
AN EXPONENTIAL SIGN, AND A SIGNED TWO-DIGIT POWER OF TEN. 

THE INP SUBROUTINE CONVERTS CHARACTER STRINGS IN EITHER 
OF THE ABOVE FORMATS, OR A MODIFIED VERSION OF THEM. 
THE LEADING SIGN MAY BE INCLUDED OR OMITTED. ANY NUMBER 
OF DIGITS MAY BE USED TO INDICATE THE VALUE, WITH OR WITHOUT 
AN INCLUDED DECIMAL POINT. IF A POWER-OF-TEN MULTLPLIER 
IS INDICATED IT MAY BE SIGNED OR UNSIGNED AND MAY CONTAIN 
ONE OR TWO DIGITS. AN INPUT STRING IS TERMINATED BY THE 
FIRST CHARACTER WHICH DEPARTS FROM THE FORMAT. 

THE FOLLOWING ARE EXAMPLES OF INPUT AND CORRESPONDING 
OUTPUT CHARACTER STRINGS. 



3.141593 

-.0000000000001 

+1.6E5 

123456789 

54321E-10 

-2718281828E-9 



3.141593 
-1.000000E-13 

160000.0 

1.234568E+08 

5.432100E-06 
-2.718282 
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MICROCOMPUTER 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BC2 



D 4004 8008 Q 8080 



(ust additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



FLOATING POINT FORMAT CONVERSION PACKAGE 

Provides subroutines for conversion between floating point 
format and ASCII or BCD. Functions contained are: 

1. Floating point to BCD conversion 

2. BCD to floating point conversion 

3. Floating point to fixed point (integer) conversion 

4. Fixed point to floating point conversion 



None 



Floating Point Arithmetic and Utility Package 



Registers Modified: 



RAM Required: 

63 bytes 



ROM Required: 

512 bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

MAC 8 



Programmer: 



C.E. Ohme 



Company: 44750 winding Lane 
Fremont, Ca. 94538 
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8008 BIMAPC FLOATING POINT SYSTEM 
FORMAT CONVFRSION PACKAGE 



THE FORMAT CONVERSION PACKAGE OF THE 8008 BINARY FLOATING 
POINT SYSTEM CONTAINS SUBROUTINES FOP THE CONVERSION OF 
DATA BETWEEN THE FLOATING POINT SYSTEM NOTATION AND TWO 
OTHER FORMATS. THE NON-FLOATING-POINT FORMATS APE FOUR 
WORD FIXED POINT FORMAT AND VARIABLE LENGTH CHARACTER STRING 
FORMAT • 

THE FORMAT CONVERSION PACKAGE IS CONTAINER IN 512 CONSECUTIVE 
WORDS OF MEMORY (2 BANKS OF ROM) AND REOUIpES FOR ITS 
EXECUTION THAT THE ARITHMETIC AND UTILITY PACKAGE BE 
AVAILABLE IN MEMORY. THE COMBINATION OF THIS PACKAGE AND 
THE ARITHMETIC AND UTILITY PACKAGE USES ThE FIRST 64 WORDS 
OF A BANK OF RAM AS SCRATCHPAD MEMORY. 



THE FIXED POINT FORMAT DATA PROCESSED BY THIS PACKAGE 
CONSIST OF 32 BIT BlNAPY NUMBERS OCCUPYING FOUR WORDS. 
TWOS COMPLEMENT NOTATION IS USED TO REPRESENT NEGATIVE 
VALUES. 

THE POSITION OF THE BINARY POINT RELATIVE TO THE 
BITS REPRESENTING THE VALUE IS DENOTED BY A BINARY 
SCALING FACTOR. THE BINARY SCALING FACTOo IS NOT NORMALLY 
RECORDED IN THE COMPUTER, BUT WHEN A FORMAT CONVERSION 
SUBROUTINE IS CALLED THE BINARY SCALING FACTOR MUST BE 
SPECIFIEDUN THE E REGISTER). A BINARY SrALlNG FACTOR OF 
ZERO INDICATES THE BINARY POINT IS IMMEDIATELY TO THE LEFT 
OF THE MOST SIGNIFICANT OF THE 32 BITS REPRESENTING THE 
VALUE. A BINARY SCALING FACTOR OF- 32 INDlCATFS THE BINARY 
POINT IS IMMEDIATELY TO THE RIGHT OF THE I EAST 
SIGNIFICANT BIT. THE PERMISSIBLE RANGE OF THF BINARY 
SCALING FACTOR IS -128(200 OCTAL) TO ♦127(177 OCTAL). 



THE CHARACTER STRING FORMAT DATA PROCESSEo BY THIS PACKAGE 
CONSIST OF BINARY REPRESENTATIONS OF CHARaCTEPS OCCUPYING 
CONSECUTIVE WORDS OF MEMORY. A CHARACTER STRING MAY NOT 
CROSS A MEMORY BANK BOUNDARY. THE CHARACTERS WHICH MAY BE 
INCLUDED IN A CHARACTFR STRING, AND THF CORRESPONDING 
OCTAL REPRESENTATIONS ARE LISTED BELOW. 

DECIMAL DIGITS 000B-011B BCD DIGITS 
SPACE 360B 

♦ 373B PLUS 

375B MINUS 
376B DECIMAL POINT 
EXPONENTIAL SIGN 025B LETTER E 
(THESE OCTAL REPRESENTATIONS CAN BE CONVERTED TO THE 
CORRESPONDING ASCII CHARACTERS BY ADDING o^OB TO EACH) 

THE OUT SUBROUTINE GENERATES CHARACTER STRINGS IN TWO 

FORMATS, EACH CONSISTING OF 13 CHARACTERS. THF FORMAT 

USED IN A SPECIFIC'.CASE IS DEPENDENT UPON THE MAGNITUDE 5-7 

OF THE VALUE REPRESENTED. 



> 
> 

* 

t> 

» 

» 

» 

» 
» 
» 
» 



ZFRO AND MAGNITUDES BETWEEN .1000000 AND 9999Q99. ARE 
reppesfmtfd BY A SPACF OR MINUS SIGN* sevfn decimal DIGITS 
and an appropriately positioned decimal point, and 
foup spaces. 

MAGNITUDES OUTSIDE THE ABOVE RANGE ARE REPRESENTED BY A 
CPACE OP MINUS SIGN. A VALUE BETWEEN l.OOoOOO AND 9.999999, 
AN EXPONENTIAL SIGN, AND A SIGNED TWO DIGTT POwER OF TEN. 



THE INP SUBPOUTINF CONVERTS CHARACTER STRINGS IN EITHER 
OF THE ABOVE FORMATS. OR A MODIFIED VERSION OF THEM. THE 
LEADING SIGN CHARACTER MAY BE INCLUDED OR OMITTED. UP TO 
37 DIGITS MAY BE USED TO INDICATE THE VALnE. WITH OP 
WITHOUT AN INCLUDED DECIMAL POINT. IF A POWER-OF-TEN 
MULTIPLIER IS INDICATFD IT MAY BE SIGNED OR UNSIGNED AND 
MAY CONTAIN ONE OR TWO DIGITS. AN INPUT CHARACTER STRING 
IS TERMINATED BY THE FIRST CHAPACTER WHICH DEPARTS FROM 
THE SPECIFIED FORMAT. 

THE FOLLOWING APE EXAMPLES OF INPUT AND CORRESPONDING 
OUTPUT CHARACTER STRINGS. 



3.141593 
-.0000000000001 

♦1.6E5 

123456789 

54321E-10 
-2718281828 



3.141593 
-1.000000E-n 

160000.0 

1.234568E+0R 

5.432100E-0* 
-2*718282E*09 



THE INDIVIDUAL SUBROUTINES INCLUDED IN TH F FORMAT CONVERSION 
PACKAGE OF THE FLOATING POINT SYSTEM ARE DESCRIBED IN DETAIL 
BELOW. 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref N ° 



D 4004 □ 8008 [J 8080 Q 4040 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



16 BIT MULTIPLY - 32 BIT RESULT 



MULTIPLICATION OF TWO 16 BIT POSITIVE NUMBERS 



BASIC 8080 SYSTEM 



23 INSTRUCTIONS 



2 BYTE MULTIPLIER Xj Xo IN MEMORY 

2 BYTE MULTIPLICAND Yj Yo IN D&E REGISTERS 



STARTING WITH MOST SIGNIFICANT BYTE: 
A, H, L STACK 



Registers Modified: 



ALL 



RAM Required: 



6 BYTES 



ROM Required: 



42 BYTES 



Maximum Subroutine Nesting Level: 
NONE 



Assembler/Compiler Used: 



Programmer: 



DAN SOLTZ 



Company: FISCHER & PORTER 

COUNTY LINE ROAD,WARMINSTER PA. 18974 
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S0S0 MACRO ASSEMBLER, VI. 



PAGE 1 











.; REF. 


NO. BB1 










, PROGRAM T I TLE 16 










.; USER MUST ENTER 










.; IN 


THE D AND E 










J IN 


THE LOCATION 


0100 








ORG 


100H 


0100 


3:AFE08 






LDA 


AX0 .; 


0103 


0E02 






MVI 


C, 2 .; 


0105 


0608 


PASS2 : 


MVI 


B, 8 .; 


0107 


210000 






LXI 


H, .; 


010 A 


29 


Li 


HOP : 


DAD 


H .; 


010B 


17 






RAL 




010C 


D21281 






•JNC 


DEC .; 


010F 


19 






DAD 


D 


0110 


CE00 






AC I 


.; 


0112 


05 


DEC : 


DCR 


B .; 


0113 


C20A01 






JNZ 


LOOP .; 


0116 


0D 






DCR 


C .; 


'"■ - 17 


CA2401 






JZ 


DONE .; 


1A 


E5 






PUSH 


H .; 


011B 


6C 






MOV 


L, H .; 


01 1C 


67 






MOV 


H, A ; 


011D 


E5 






PUSH 


H i 


011E 


3AFF00 






LDA 


flXl .; 


0121 


C30501 






JMP 


PASS2 .; 


8124 


Dl 


DC 


iNE : 


POP 


D i 


0125 


19 






DAD 


D .; 


8126 


CE0O 






AC I 


8 .; 


0128 


76 






HLT 




00FE 




f\> 


!8 


EQU 


OFEH 


80FF 




A> 


:i 


EQU 


8FFH 


0000 








END 





BIT MULTIPLV -::3:2 BIT RESULTS!) 



PROGRAM WITH MULTIPLICAND 
REGISTERS AND THE MULTIPLIER 
S SPECIFIED BV AXO AND AX1 BELOW 

LOAD A WITH CONTENTS OF LOC. AX8 
LOAD PASS COUNTER C WITH 2 
LOAD LOOP COUNTER B WITH 8 
CLEAR H AND L 

SHIFT PARTIAL PRODUCT LEFT INTO CAPRV 
ROTATE MULTIPLIER BIT INTO rAPRV 
TEST MULTIPLIER AT CARRV 
ADD MULTIPLICAND TO PARTIAL PRODUCT 
ADD CARRV TO RESULTS MS BVTE 
DECREMENT LOOP COUNTER 
DO LOOP 8 TIMES 
DECREMENT PASS COUNTER 
AFTER 2ND PASS JUMP TO DONE 
STORE LS RESULT BVTE 
MOV PARTIAL PRODUCT 
TO H AND L 
AND STORE IN STACK 
LOAD A WITH XI 
GO TO SECOND PASS ROUTINE 
RETURN PARTIAL PRODUCT FROM STACK 
ADD PART. PRODUCTS FROM TWO PASSES 
ADD CARRV TO MS BVTE 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref. no 



BB2 



D 4004 □ 800$ (3 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



16-BIT MULTIPLY - 16-BIT RESULT - MPY16 
Performs a 16 x 16 bit multiply giving a 16 bit result 



NONE 



NONE 



D,E registers contain multiplier 
H,L registers contain multiplicand 



B,C contain result 



Registers Modified: 
All 



Maximum Subroutine Nesting Level: 




RAM Required: 

3 bytes 



ROM Required: 

25H bytes 



Assembler/Compiler Used: 

MAC 30 



Programmer: 



Company: 
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0000 


222800 


0003 


212A00 


0006 


3611 


000B 


7A 


000C 


IF 


000D 


57 


000E 


7B 


O00F 


IF 


0010 


5F 


0011 


~' t ~i 


0012 


C8 


0013 


D21F00 


>6 


2A2800 


*-..j19 


09 


001 A 


44 


001B 


4D 


O01C 


212A00 


0020 


IF 


0021 


47 


0022 


79 


0023 


IF 


0024 


4F 


0025 


C30B00 



REF NO. BB2 

PROGRAM TITLE MPV 16 



MPV8Q 



LOOP 



SKIP 



0028 
00 2 A 

0000 



TEMP 



BNUM 



SHLD 
LXI 
MVI 
LXI 

MOV 

RAR 

MOV 

MOV 

RAR 

MOV 

DCR 

RZ 

JNC 

LHLD 

DAD 

MOV 

MOV 

LXI 

MOV 
RAR 
MOV 
MOV 
RAR 
MOV 
JMP 

DS 2 

DS 1 
END 



TEMP 
H, BNUM 
M, 11H 
B, 

A, D 

D, A 

A, E 

E, A 
M 

SKIP 
TEMP 
B 

B, H 

C, L 

H, BNUM 

A, B 

B, A 
A, C 

C, A 
LOOP 



; STORE MULTIPLICAND IN TEMPfiRARV 

; STORE 

.: BIT COUNT 

i INITIALIZE RESULT 

.; ROTATE 

* MULTIPLIER 

.: RIGHT 

DECREMENT BIT COUNT 
DONE? THEN RETURN 
NO CARRV FROM ROTATE 
OTHERWISE 
ADD 

MULTIPLICAND 
SAVE RESULT 
REbTORE H AND L REGISTERS 

.; ROTATE 
.; TEMP 
.: RESULT 
■> RIGHT 



i REPEAT LOOP 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. BB3 



□ 4004 Q8008 Q8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(um additional sheets if necessary) 



16-BIT MULTIPLY - 16-BIT RESULT 

Performs 16-bit x 16-bit multiplication giving a 16-bit 
result. © & 



None. 



None. 



B,C contain multiplicand 
D,E contain multiplier. 



B,C contain result. 



Registers Modified: 



A, B. C. D, E, H, L 
RAM Required: 



3 bytp.fi 



ROM Required: 

35H-bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

MAC, a 



Programmer: 



Company: 
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REF. NO. BB2 

PROGRAM TITLE 16-BIT MULTIPLY 



THIb SUBROUTINE PERFORMS A 16 BIT MULTIPL irRTir.N 
GIVING A 16 BIT RESULT. THE NUMBER'-- MUST BE 16 BIT 
UNSIGNED QUANTITIES. THE B AND C REGISTERS SHOULD 
CONTAIN THE MULTIPLICAND AND THE D AND E PFGISTERS 
bHOULD CONTAIN THE MULTIPLIER. THE RESULT MILL BE 
FOUND IN THE D AND E REGISTER 1 -. 



MPV16 



0000 


2131O0 


0003 


71 


0004 


2C 


000. "5 


70 


0006 


213300 


09 


3611 


.--J0B 


0600 


O0OD 


48 


O0OE 


7A 


0O0F 


IF 


0010 


cr-7 
•_' f 


0011 


7B 


0012 


IF 


I-J012 


5E 


0014 


ID 


0015 


"7~; 


0016 


5F 


0017 


C8 


00 IS 


D22800 


00. IB 


21310O 


00 IE 


79 


O01F 


86 


0020 


4F 


0021 


2C 


0022 


r o 


0023 


8E 


0024 


47 


0025 


213300 


~ ! "' r i28 


r o 


.29 


IF 


€102 A 


47 


002 B 


79 



LOOP 



SKIP 



LXI 


H, MP CD 


MOV 


M, C 


INR 


L 


MOV 


M, B 


LXI 


H, BNUM 


MV I 


M, 11H 


MVI 


B, OH 


MOV 


C, B 


MOV 


A, D 


PAR 




MOV 


D, A 


MOV 


A, E 


PAR 




MOV 


E, M 


DCR 


E 


MOV 


M, E 


MOV 


E, A 


RZ 




JNC 


SKIP 


LXI 


H, MP CD 


MOV 


A, C 


ADD 


M 


MOV 


C, A 


I NR 


L 


MOV 


A, B 


ADC 


M 


MOV 


B, A 


LXI 


H, BNUM 


MOV 


A, B 


RAR 




MOV 


B.- A 


MOV 


A, C 



TEMP ADDRESS OF MULTIPLICAND 
bAVE MULTIPLICAND 



TEMP ADDRESS OF BIT COUNTER 
INITIALIZE BIT COUNTER 
B AND C REGS TO ZERO 



SHIFT 
MULTIPLIER 
R I GHT 
ONE 
BIT 
DECREMENT 
BIT 
COUNTER 

DONE IF ALL BITS USED 
NO CARRV FROM SHIFT SO NO ADD 
GET MULTIPLICAND ADDRESS 
ADD LOW ORDER 

OF MULTIPLICAND TO RFSULT 
SAVE RESULT 

HIGH ORDER MULTIPLICAND ADDRE5 
ADD HIGH ORDER 

OF MULTIPLICAND WITH CARRV 
SAVE RESULT 
RESTORE BIT COUNTER ADDRESS 

SHIFT 

RESULT 
RIGHT 
ONE 
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0@2C IF 
0© 2D 4F 
002E C30E00 

0031 

0033 

0000 



MPCD 
BNUM 



RAR 

MOV C, A 
JMP LOOP 

DS 2 

DS 1 
END 



BIT 
REPEAT STEPS IN LOOP 
SPACE FOR TEMP MULTIPLICAND 
SPACE FOR BIT COUNTER 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM «"*• No 



BB4 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 08008 O 8080 



(use additional sheets if necessary) 



16-BIT 2'S COMPLEMENT SIGNED MULTIPLICATION - SMPY16 
16-Bit Binary Multiplication - 32-Bit Result 



None 



None 



B,C contain multiplicand 

H,L contain address of multiplier 



32-bit product returned at 
(H,L) to (H,L+3) 



Registers Modified: 
All 



RAM Required: 
4 bytes 



ROM Required: 
68H 



Maximum Subroutine Nesting Level: 

1 



Assembler/Compiler Used: 



MAC 8 



Programmer: 



R.M. Gabrielson 
General Electric 



Company: 



Aerospace Controls 



Box 5000, Binghamton NY 13902 
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; REF. NO. BB4. 

.= PROGRAM TITLE SMPV16 



0400 



0400 78 

0401 86 

0402 47 
0401 79 
0404 2C 
"MS5 8E 
-J406 8E 
3407 4F 
0408 C9 
0564 



ORG 1024 
i DOUBLE PRECISION 16 BIT ADD 
i LO 8 BITS AUGEND IN B 
:• HI 8 BITS AUGEND IN C 
i LO 8 BITS ADDEND AT <H, L> 
.: HI 8 BITS ADDEND AT <H, L+l> 
; RESULT RETURNED IN B<LO SUM 
ADBL : 

MOV A, B 

ADD M .; LO AUG + 
MOV B, A .; B=LO SUM 
MOV A, C 
INR L 
ADC M 
ADC M 
MOV C, A 
RET 

ORG 2544Q 
16-BIT 2-S COMPLEMENT MULTIPLV 
MULTIPLICAND IN B, C 
MULTIPLIER AT CH, L> 

PRODUCT RETURNED AT <M, L> - <H, L+3> 
AFFECTS ALL REGISTERS 

MDBL : 



AND C<HI SUM> 



LO ADD 



HI AUFG + HI ADD + LO CARRY 



0564 


56 


MOV 


D, M 


.; MULTIPLIER TO D, 


0565 


2C 


INR 


L 




0566 


5E 


MOV 


E, M 




0567 


AF 


XRA 


A 




0568 


'd'S 


ADD 


E 




0569 


F27905 


JP 


SETT 


:> IF MPLR POSITIVE 






> COMPLEMENT 


MPLR & MPCD 


IF MPLR < O 


056C 


AF 


XRfl 


A 




056D 


6F 


MOV 


L, A 




056E 


90 


SUB 


B 




056F 


47 


MOV 


B, A 




0570 


7D 


MOV 


A, L 




0571 


99 


SBB 


c 




0572 


4F 


MOV 


C, A 




573 


7D 


MOV 


A, L 




0574 


92 


SUB 


D 




0575 


57 


MOV 


D, A 





5-21 



S SOS0 MACRO ASSEMBLER, VI. PAGE 2 



0576 7D 

0577 9B 




MOV 
SBB 


A, L 

E 






0573 5F 


i SET UP 


MOV E, R 
FOR MULTIPLY 






0579 21E70B 


SETT . 


LX I 


H, MPCD 






05 7 C 70 




MOV 


M, B 






057D 2C 
057E 7:1 




INR 
MOV 


L 
M, C 






057F AF 
8580 47 




XRA 
MOV 


A 
B, A 






0531 4F 

0532 21E90B 
0535 36 OF 


.; BEGIN 


MOV 
LXI 
MVI 
MULTIPLV 


C, A 

H, TEST 

M, 15 






05S7 CDB105 
053 A D29305 


NEXT : 


CALL 
JNC 


SHIFT 
DECR 


IF MPLR 


BIT 


053D 21E70B 
0590 CD0004 

593 21E90B 
596 3EFF 
0593 36 


DECR : 


LX I 
CALL 

LXI 
MV I 
ADD 


H, MPCD 
ADBL 

H, TEST 
A, -1 
M 






0599 77 
©59 A C 23 705 




MOV 
JNZ 


M, A 
NEXT 


IF NOT 


DONE 


059D AF 

05 9E CD B 105 




XRA 
CALL 


A 
SHIFT 






05A1 AF 
05A2 CDB105 




XRA 
CALL 


A 
SHIFT 


REPEAT 


SIGN 


05A5 2C 
05A6 71 
05 A 7 2D 
05 A3 70 


STORE 


PRODUCT 
INR 
MOV 
DCR 
MOV 


IN MEM. 
L 

M, C 
L 
M, B 






05A9 2D 
05AA 73 
05AB 2D 
05 AC 72 
05AD 21E70B 




DCR 
MOV 
DCR 
MOV 
LXI 


L 

M, E 

L 

M, D 

H, MPCD 


ADDRESS 


I OF 1 


05B0 C9 


RET 
.; 4-BVTE ARITHMETIC RIGHT 


SHIFT 




05B1 79 
05B2 07 


SHIFT: 


MOV 
RLC 


A, C 


i REPEAT 


SIGN 


05B3 IF 




RAR 








05B4 IF 

5B5 4F 

05B6 73 




RAR 
MOV 
MOV 


C, A 
A, B 






*F,R7 IF 




RAR 
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85B8 47 
05B9 7B 
05BA IF 
05BB 5F 
05BC 7A 
05BD IF 
85BE 57 
05BF C9 
0BE7 
0BE9 

0000 





MOV 


B, A 




MOV 


A, E 




RAR 






MOV 


E, A 




MOV 


A, D 




RAR 






MOV 


D, A 




RET 




MF'CD 


EQU 


5747Q 


TEST 


EQU 
END 


5751Q 
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MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM Ref. no rb 5 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 8008 K) 8080 



(use additional sheets if necessary) 



BINARY MULTIPLICATION - 24-BIT 

Multiplies two binary numbers: 
Multiplicand - 24 bits 
Multiplier - 1 to 24 bits 



NONE 



NONE 



H and L registers pointing to Least Significant byte of multiplier 
D and E registers pointing to Least Significant byte of multiplicand 
A register has the number of multiplier bits plus 1 



H and L registers pointing to Least Significant byte of Product 
(see program for memory location) 



Registers Modified: 

All except H and L 


Maximum Subroutine Nesting Level: 
1 


RAM Required: 

7 bytes 


Assembler/Compiler Used: 
MAC80 


ROM Required: 

110 bytes 


Programmer: chQn Rock LeQw 
Tektronix 




Company: pox 500 ^ Dept> 50 -447 

Bv=averton, Oregon 97077 
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REF. NO. BBS. 

PROGRAM NAME BINARV MULTIPLICATION 



0883 
8818 
8812 
8814 
8816 

8180 



++:+:*:+: + :+::+::+: :+: * :+: ■+■+. :+: :+::+: + :+: :+: * :+: + +: :+: :+: + 

B I NARY MULT I PL I CAT I ON 

*::+::+::+: #*::+::+::+::+: :+: :+::+::+: + *:+: + :+: .+• :+c .+: * * + .+ :+: 



ON ENTERING THIS SUBROUTINE 
HL REG. POINTS TO LS BVTE OF MULTIPLIER 
DE REG. POINTS TO LS BVTE OF MULTIPLICAND 
A REG. HAS THE NUMBER OF MULTIPLEIER BITS +1 

ON EXIT 
HL REG, POINTS TO LS BVTE OF PRODUCT 
NOT: MEMORV ALLOCATION FOR PRODUCT 

ENTER : XXXMMM 
EXIT :PPPPPP 

X IS DONTT CARE 

M IS MULTIPLIER 

P IS PRODUCT 



<2 TO 



>5> 



BV3 


EQU 


~- 


LSR 


EQU 


10H 


MSR 


EQU 


12H 


LSMCD 


EQU 


14H 


MBIT 


EQU 


16H 



3 BVTES 

LS PARTIAL PRODUCT POINTER SAVED LOCATI 

MS PRODUCT POINTER SAVED LOCATION 

LS MULTIPLICAND POINTER SAVED LOCATION 

NUMBER OF BITS SAVED LOCATION 



ORG 



100H 



■> INITIALIZATION OF RESULT BUFFER 



MULT 



0100 


E5 


0101 


2B 


0102 


2B 


0103 


2B 


8104 


221888 


107 


321688 


818A 


AF 


818B 


r i° 



PUSH 


H 


DCX 


H 


DCX 


H 


DCX 


H 


SHLD 


LSR 


STA 


NBIT 


XRA 


A 


MOV 


M, A 



SAVE MULTIPLIER POINTER 



SAVE LS PARTIAL PRODUCT POINTER 

SAVE NUMBER OF MULTIPLIER BITS IN NBIT 

CLEAR A 
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010C 2B 
010D 77 
010E 2B 
010F 77 
0118 2212.00 
0113: EB 
0114 221400 



0117 0600 

0119 El 
011A E5 
011B 7E 
G11C 2B 
011D SE 
011E 2B 
011F 3E 

0120 B8 

0121 CA5E01 



0124 3 A 1600 
0127 47 

0125 AF 

0129 CD6001 
8120 05 
012D CA4901 
012.0 D22901 



0:02 2A1400 

0126 EB 

0127 2A1000 
012A 0E03 
01.SC AF 

012D 1A 
012E 3E 
012F 77 

0140 IB 

0141 2B 

0142 OD 

0143 C23D01 
146 C32901 



DCX 


H 


MOV 


M, A 


DCX 


H 


MOV 


M, A 


SHLD 


MSR 


XCHG 




SHLD 


LSM 



TEST FOR ZERO 



MV I 


B, O 


POP 


H 


PUSH 


H 


MOV 


A, M 


DCX 


H 


ADC 


M 


DCX 


H 


ADC 


M 


CMP 


B 


JZ 


EXIT 



SAVE MS PRODUCT POINTER 
SAVE LS MULTIPLICAND POINTER 

PICK. UP LS MULTIPLIER POINTER 



COMPARE WITH B REG. <0> 
EXIT IF MULTIPLIER = O 



ROTATE MULTIPLIER ROUND AND TEST 



LOOP : 



LDA 


NB I T 


MOV 


B, A 


XRA 


A 


CALL 


R.0T1 


DCR 


B 


JZ 


FINIS 


JNC 


LOOP 



.; ADDTION ROUTINE 



ADD1 



LHLD 


LSMCD 


XCHG 




LHLD 


LSR 


MV I 


C, BV3 


XRA 


A 


LDAX 


D 


ADC 


M 


MOV 


M, A 


DCX 


D 


DCX 


H 


DCR 


c 


■JNZ 


ADD1 


JMP 


LOOP 



B REG. HAS NUMBER OF MULTIPLER BITS 
CLEAR. CARRV BIT 

CALL ROTATE ROUTINE 

DECREMENT COUNT FOR MULTIPLIER BIT: 

IF ZERO -> FINISH 

IF CARRV-0 -> JUST ROTATE 



PICK UP LS MULTIPLICAND POINTER 

PICK UP LS PARTIAL PRODUCT POINTER 
COUNT FOR 3 BVTES 
CLEAR CARRV 

PICK UP MULTIPLICAND 
ADD IN TO RESULT 



.; IF ZERO -> FINISH ADDING 



.; ALIGN PRODUCT TO WHERE ILS MULTIPLIER Wflb 
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FINIS 



0149 


3A1600 






LDA 


NBIT 


014C 


47 






MOV 


B, A 


014D 


3E18 






MVI 


A, BV3*8 


014F 


90 






SUB 


B 


0150 


C601 






AD I 


1 


0152 


CA5E01 






JZ 


EXIT 


0155 


47 






MOV 


B, A 


0156 


AF 


AC 


'J: 


XRA 


A 


0157 


CD6001 






CALL 


ROT1 


015A 


05 






DCR 


B 


015B 


C25701 


E> 


IT: 


JNZ 


AD-J 


015E 


El 






POP 


H 


015F 


C9 






RET 










ROTATE ROUTINE 






ROT1 : 






^160 


0E06 






MVI 


C, BV3+2 


►3162 


2A1200 






LHLD 


MSR 






ROT 2 : 






0165 


7E 






MOV 


A, M 


0166 


IF 






RAR 




0167 


77 






MOV 


M, A 


0168 


23 






I NX 


H 


0169 


0D 






DCR 


C 


016A 


0D 






DCR 


c 


016B 


C26501 






JNZ 


R0T2 


016E 


C9 






RET 





COMPUTER BV3+8 -NBIT + 1 



DON'T NEED ATO ALIGN IF NBIT=25 
B REG. HAS THE COUNT OF ALIGNMENT 
CLEAR CARRV 



CALL ROTATE ROUTINE 



RETURN WITH HL POINTER TO LS RESULT 
RETURN TO CALLING POINT 



PICKUP MS RESULT PO INTER- 



DECREMENT COUNT OF BVTES OF ROTATION 
IF NOT ZERO, KEEP ROTATING 



0000 



END 
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MICROCOMPUTER 
LIBRARY SUBMITTAL FORM 



Ref. No. BB8 



D 4004 £3(8008 Q 8080 



(um additional sheets if necessary) 



Program 
Title 

Function 



16-BIT DIVISION - 16-BIT RESULT 

Performs integer division of 16-bit quantities. Gives a 
16-bit result. 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



None. 



None. 



B,C contain divisor. 
D,E contain the dividend 



Output 
Results 



D,E contain the result 



Registers Modified: 

All 


Maximum Subroutine Nesting Level: 




RAM Required: 

3 bytes 


Assembler/Compiler Used: 

MAC 8 


ROM Required: 

40H bytes 


Programmer: 




Company: 
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REF. NO. BBS' 

PROGRAM TITLE 16-BIT DIVISION 



THIb bUBROUTINE PERFORMS 16 BIT DIVISION GIVING A 16 
BIT REbULT. THE B AND C REGISTERS CONTAIN THE 
DIVIbOR AND D AND E REGISTERS CONTAIN THE DIVIDEND 
THE RESULT IS RETURNED IN THE D AND E REGISTERS 
.iNOTE: BOTH QUANTITIES ARE 16 BIT UNSIGNED NUMBERS 



D I V16 



€1000 


213C0O 


0003 


71 


0004 


2C 


0005 


70 


0006 


213-E00 


G009 


3611 


OB 


0600 


^■dOD 


48 


000E 


7B 


000F 


17 


0010 


5F 


©011 


7A 


0012 


17 


0013 


56 


0014 


15 


0015 


72 


0016 


tr-j 
•_>■• 


0017 


C8 


0018 


79 


0019 


17 


001 A 


4F 


001B 


i'" o 


00 IC 


17 


001D 


47 


001E 


213C0O 


0021 


79 


0022 


96 


0023 


4F 


0024 


2C 


0025 


-?<-, 


,T, Ma26 


9E 


Jz? 


47 


8628 


D23300 


902B 


2D 



LOOP : 



LXI 


H, TEMP 


.; ADDRESS OF TEMP CELL 


MOV 


M, C 


.; SAVE DIVIDEND 


INR 


L 




MOV 


M, B 




LXI 


H, BNUM 


i ADDRESS OF BIT COUNTER 


MV I 


M, 11H 


; INITIALIZE BIT COUNTER 


MV I 


B, OH 


: SET B AND C TO ZERO 


MOV 


C, B 




MOV 


A, E 


. ROTATE 


RAL 




: DIVISOR 


MOV 


E, A 


; LEFT 


MOV 


A, D 


: ONE 


RAL 




: BIT 


MOV 


D, M 


: DECREMENT 


DCR 


D 


BIT 


MOV 


M, D 


COUNTER 


MOV 


D, A 




RZ 




RETURN IF BIT COUNTER ZERO 


MOV 


A, C 


ROTATE 


RAL 




RESULT 


MOV 


C, A 


LEFT 


MOV 


A, B 


ONE 


RAL 




BIT 


MOV 


B, A 




LXI 


H, TEMP 


ADDRESS OF DIVIDEND 


MOV 


A, C 


SUBTRACT 


SUB 


M 


LOU ORDER 


MOV 


C, A 


OF DIVIDEND 


INR 


L 




MOV 


A, B .; 


SUBTRACT 


SBB 


M 


HIGH ORDER 


MOV 


B, A .; 


OF DIVIDEND 


JNC 


SKIP .; 


NO BORROW SO SKIP ADD 


DCR 


L .; 


ADDRESS OF LOW ORDER 
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002C 


79 




MOV A, C 


00 2D 


86 




ADD M 


00 2E 


4F 




MOV C, A 


802F 


2C 




INR L 


0030 


r o 




MOV A, E 


0031 


8E 




ADC M 


0032 


47 


SKIP: 


MOV B, A 


0033 


213E00 




LXI H, BNUM 


0036 


3F 




SBB A 


0037 


DE80 




SB I 80H 


0033 


C30E00 


TEMP : 


JMP LOOP 


003C 




BNUM : 


DS 2 


003-E 






DS 1 


0000 






END 



ADD 
DIVIDEND 
BACK 
IN 



RESTORE ADDRESS OF BIT COUNTER 
COMPLEMENT 

CARRV 
REPEAT LOOP 



CELL FOR DIVIDEND 
CELL FOR BIT COUNTER 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref. no 



BB9 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



input 
arameters 



Output 
Results 



□ 4004 □ 8008 QC] 8080 



(use additional sheets if necessary) 



16-BIT DIVISION - 16-BIT RESULT - DIV16 

Performs a 16 bit x 16 bit division giving a 16 bit quotient and a 
16 bit remainder 



NONE 



NONE 



D,E contain dividend 
H,L contain divisor 



D,E contain result 
H,L contain remainder 



Registers Modified: 
All 



RAM Required: 

3 bytes 



ROM Required: 

31H bytes 



Maximum Subroutine Nesting Level: 




Assembler/Compiler Used: 

MAC 80 



Programmer: 



Company: 
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REF. NO. BBS 
PROGRAM TITLE DIV16 



DIV80 



0000 


223100 


SHLD TEMP 


0003 


213300 


LXI 


H, BNUM 


0006 


3611 


MVI 


M, ilH 


0008 


010000 


LXI 


6,0 


000B 


C5 


PUSH B 




LOOP: 




000C 


7B 


MOV 


A, E 


000D 


17 


RAL 




000E 


5F 


MOV 


E, A 


000F 


7A 


MOV 


A, D 


0010 


17 


RAL 




0011 


57 


MOV 


D, A 


0012 


35 


DCR 


M 


13 


El 


POP 


H 


fc,-j!4 


C8 


RZ 




0015 


3E0O 


MVI 


A, 


0017 


CE00 


AC I 





0019 


29 


DAD 


H 


001A 


44 


MOV 


B, H 


001B 


85 


ADD 


L 


001C 


2A3100 


LHLD TEMP 


001F 


95 


SUB 


L 


0020 


4F 


MOV 


C, A 


0021 


78 


MOV 


A, B 


0022 


9C 


SBB 


H 


0023 


47 


MOV 


B, A 


0024 


C5 


PUSH B 


0025 


D22A00 


JNC 


SKIP 


0028 


09 


DRD 


B 


0029 


E3 


XTHL 






SKIP: 




002A 


213300 


LXI 


H, BNUM 


002D 


3F 


CMC 




002E 


C30C00 


JMP 


LOOP 




TEMP : 




0031 




DS 2 


> 




BNUM : 




0033 




DS 1 




P^00 




END 





;SAVE DIVIDEND IN TEMPORARY 

; STORE 

i BIT COUNT 

; INITIALIZE RESULT 

; SAVE RESULT ON STACK 

;GET LOW DIVISOR BVTE 

i SHIFT DIVISOR LEFT ONE BIT 

j RETURN DIVISOR TO D & E 

.: DECREMENT BIT COUNT 

.; RESTORE TEMP RESULT 

; ZERO BIT COUNT MEANS ALL DONE 

;ADD IN 

; CARRV 

; SHIFT TEMP RESULT LEFT ONE BIT 

) COPY H& L TO A & C. 

; GET ADDRESS OF DIVIDEND 
; SUBTRACT FROM 

TEMPORARY RESULT 

; SAVE TEMP RESULT ON STACK 

;NO BORROW FROM SUBTRACT 

.: ADD DIVIDEND BACK IN 

; REPLACE TEMP RESULT ON STACK 

; RESTORE H & L 
COMPLEMENT CARRV 
; REPEAT LOOP STEPS 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM «* . no. 



BB10 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 8008 E 8080 



(use additional sheets if necessary) 



BINARY TO BCD CONVERSION ROUTINE 

Converts binary value (1-24 bits) to its BCD value (1-8 digits) 



NONE 



NONE 



H and L registers pointing to Most Significant BCD digits buffer 
D and E registers pointing to Least Significant byte of binary value 
A register has the number of bits to be converted. 



H and L registers pointing to Most Significant BCD digit buffer 



Registers Modified: 

All but H,L and D,E 



RAM Required: 

3 bytes 



ROM Required: 

176 bytes 



Maximum Subroutine Nesting Level: 
1 



Assembler/Compiler Used: 
MAC80 



Programmer: 



Chon Hock Leow 
Tektronix 



Company: 



Box 500, Dept. 50-447 
Beaverton, Oregon 97077 
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0010 
0012 

0200 



0200 321200 

0203 D5 

0204 E5 

0205 EB 

0206 221000 



0209 AF 
020A 7E 
020B 2B 
020C 8E 
020D 2B 
<20E 8E 
020F CA7F02 



.; REF NO. BB10 

.; PROGRAM NAME BIN TO BCD ROUTINE 



BINARY TO BCD ROUTINE 



ON ENTERING THIS PROGRAM 
HL REG. POINTS TO MS BCD DIGIT BUFFER 

<DS=8 FOR MAXIMUM CASE I. E, 24 BITS > 
DE REG. POINTS TO LS BYTE OF BINARY VALUE 
A REG. HAS THE NUMBER OF BITS TO BE CONVERTED 

ON EXIT 
HL REG. POINTERS TO MS BCD DIGIT BUFFER 

NOTE: 1 BCD DIGIT PER BYTE FOR EASY CONVERSION TO ASCII 
EG. A REG, =10 -> BCD BUFFER NEEDS ONLY 4 BYTES 

IF BINARY VALUE IS 0, BCD BUFFER IS NOT CLEARED 



SB IN 
NBIT 



BINBCD 



EQU 
EQU 

ORG 



STA 

PUSH 

PUSH 

XCHG 

SHLD 



10H 
12H 

200H 



NBIT 

D 

H 



; ADDRESS FOR SAVING DE REG. 

; NUMBER OF BITS SAVED LOCATION 



SAVE NUMBER OF BITS FOR CONVERSION 
SAVE DE, RO INTER FOR LSB OF BINARY 
SAVE HL, POTNTER FOR MS BCD 



SB IN ;SAVE BIN POINTER FOR DIGIT ROUTINE USAG 
; TEST IF BINARY VALUE IS ZERO 



XRA 
MOV 
DCX 
ADC 
DCX 
ADC 
JZ 



A 

A, M 

H 

M 

H 

M 

EXIT 



■> CLEAR A REG. 

> PICK UP LS BYTE 

; ADD IN NEXT HIGHER BYTE 

.: ADD IN MS BYTE 

i IF BINARY VALUE = -> EXIT 
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8212: EB 
8213: 3A1288 
821* FE18 
82 IE: CA3C82 
821E: FE12 
621D D24482 
8228 FE8F 
8222 D24C82 
0223 FEGC 
022? D2o482 
822ft FE88 
822C D25C02 
822F FE86 
8221 D26482 
8234 FE83 
8236 D26C82 
8239 C27482 



XCHQ 

LDA 

CP I 

J 2 

CPI 

JNC 

CPI 

JNC 

CP I 

JNC 

CP I 

JNC 

CPI 

JNC 

CP I 

JNC 

JMP 



MBIT 

24 

TEN? 

IS 

TENS 

15 

TENS 

12 

TEN4 

TEN3 

6 

TEN2 

TEN1 
TEN8 



RESTORE BCD POINTER 

PICK UP NUMBER OF BITS OF CONVERSION 

2 :+:+ 2 4 = 1. 6777216 + 1.8* +7 

t_ T T j_c, — c- . i_- 1=_ J- ~t *t ' -L.L' ' ■ -■ 

NO CARRV => G. T. 2**18 
2 ++15 = 3. 2768 * 18**4 
NO CARRV => G. T. 2**15 
2 ++12 = 4. 836 * 18**3 
NO CARRV => G. T. 2**12 



REACHED IF NBIT 



82,<C 

12 3 E 

ct24:l 

8244 

8246 

8243 

824 C 

82 413 

8251 

8254 

8256 

8253 

82 5C 

825E 

826jl. 

8264 

8266 

8263 

826C 

82 6 E 

8271 

8274 

8276 

8273 

627 C 



1638 

818836 

CD8282 

166 F 

814642 

CDS 28 2 

1681 

81A886 

CD8282 

1688 

811827 

CD8282 

1688 

81E883 

CD8282 

1688 

816488 

CD8282 

1688 

818A88 

CD8282 

1688 

818188 

CD8282 

C37F82 



.; BEGIN CONVERION 
TEN? : 



TENS 



TEN5 



TEN4 : 



TEN3 



TEN2 



TEN! 



TEN6 



MV I 

LXI 

CALL 

MV I 

LXI 

CALL 

MV I 

LXI 

CALL 

MVI 

LXI 

CALL 

MVI 

LXI 

CALL 

MVI 

LXI 

CALL 

MV I 

LXI 

CALL 

MVI 

LXI 

CALL 

JMP 



D, 38H 

B, 36S8H 

DIGIT 

D, 8FH 

B, 42.46H 

DIGIT 

D, 1 

B, 86A8H 

DIGIT 

D, 8 

B, 18888 

DIGIT 

D, 8 

B, 1888 

DIGIT 

D, 8 

B, 188 

DIGIT 

D, 8 

B, 18 

DIGIT 

D, 8 

B, 1 

DIGIT 

EXIT 



383686H = 18**7 



8F4248H = 16**6 



818fc.A6H 



10* + = 



i27F El 
8288 Dl 
8281 C3 



EXIT 



POP 
POP 
RET 



.; RETURN HL POINTING TO Mb BCD 

.; RETURN DE POINTING FO LSB OF BINARV 
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.; SUBRACTION ROUTINE 
DIGIT: 



8282 3688 



8284 E5 

8285 2A1888 

8288 7E 

8289 91 
828A 77 
828B 2B 
828C 7E 
828D 98 
828E 77 
828F 2B 
8298 7E 

8291 9A 

8292 77 



'A 



d294 DA9E82 

8297 El 

8298 34 

8299 E5 
829A 57 
829B C38582 



SUB1 



MVI 



PUSH 

LHLD 

MOV 

SUB 

MOV 

DCX 

MOV 

SBB 

MOV 

DCX 

MOV 

SBB 

MOV 

MOV 

,TC 

POP 

INR 

PUSH 

MOV 

JMP 



M, 8 



H 

SB IN 

A, M 

C 

M, A 

H 

A, M 

B 

M, A 

H 

A, M 

D 

M, A 

A, D 

RSTR 

H 

M 

H 

D, A 

SUB1 



.; INITIALIZE DIGIT 
.: FOR BCD, DIGIT=8 
;FOR ASCII, DIGIT=38H 
,• SAVE BCD POINTER 

.; PICK UP BIN POINTER 
.; PICK UP LS BVTE 

/PUTS IT BACK 

.; POINTS TO 2ND LS BVTE 



POINTS TO MS BVTE 



; SAVE D REG. 

.: IF CARRV RESTORE 

.= PICK BCD POINTER 

.; INCREMENT BCD POINTER 

; SAVE BCD POINTER 

; RESTORE D REG. 



> RESTORE ROUTINE 



RSTR 



829E 


57 


829F 


2A1888 


82A2 


7E 


82A3 


81 


82A4 


77 


82A5 


2B 


82A6 


7E 


82A7 


oo 


82A8 


77 


82A9 


2B 


82AA 


7E 


82AB 


8A 


82AC 


77 


82AD 


El 


.<2AE 


23 


82AF 


C9 


8888 





MOV 


D, A 


LHLD 


SB IN 


MOV 


A, M 


ADD 


c 


MOV 


M, A 


DCX 


H 


MOV 


A, M 


ADC 


B 


MOV 


M, A 


DCX 


H 


MOV 


A, M 


ADC 


D 


MOV 


M, A 


POP 


H 


I NX 


H 


RET 




END 





; RESTORE D REG. 

J PICK UP BIN POINTER 



POINTS TO 2ND LS BVTE 



; PICKS UP MS BVTE 



> PICKS UP BCD POINTER 

.; POINTS TO NEXT BCD DIGIT 
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MICROCOMPUTER USER'S 
intbL LIBRARY SUBMITTAL FORM Ref. n„. 



BB11 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 □ 8008 £l 8080 



(use additional sheets if necessary) 



BCD TO BINARY CONVERSION ROUTINE 

Converts BCD value (1-8 digits) to Binary value (max. 24 bits) 



NONE 



NONE 



DE register pointing to Most Significant BCD digit 

A register has the number of BCD digits to be converted 



A register has the Most Significant 8-bits 
H and L register has the lower 16 bits 



Registers Modified : 
All 



RAM Required: 
NONE 



ROM Required: 

38 bytes 



Maximum Subroutine Nesting Level: 
1 



Assembler/Compiler Used: 

MAC 80 



Programmer: 



Chon Hock Leow 
Tektronix 



Company: 



Box 500, Dept. 50-447 
Beaver ton, Oregon 9707 ' 
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.>300 



REF. NO. BB11. 

PROGRAM NAME BCD TO BIN ROUTINE 



BCD TO BIN ROUTINE 



ON ENTERING THIS PROGRAM 
DE REG. POINTS TO MS BCD DIGIT 
A REG. HAS THE NUMBER OF BCD DIGITS TO BE CONVERTED 



ON EXIT 
THE BINARY VALUE IS 
THE MS 8 BITS AND HL 



IN A, H, L REG, WITH A REG. HAVING 
REG, HAVING THE LOWER 16 BITS 



ORG 



300H 





BCDBIN: 






0308 4F 




MOV 


C, A 


0301 210000 




LXI 


H, 


0304 AF 


LOOP: 


XRA 


A 


0305 CD0E03 




CALL 


BCD 


0308 13 




I NX 


D 


0309 OD 




DCR 


C 


030A C20503 




JNZ 


LOOP 


030D C9 




RET 





;MOVE NUMBER OF BCD DIGITS TO C REG 
; INITIALIZE H & L RTO 
.; AND A TO 

.: CALL +10 ROUTINE 

.: POINT TO NEXT LOWER BCD DIGIT 

.; IF CONVERSION IS NOT FINISHED, KEEP GO IN 



; *10 ROUTINE 



030E D5 
030F E5 

0310 47 

0311 29 

0312 8F 

0313 29 

0314 8F 

0315 Dl 

0316 19 
317 88 

0318 29 

0319 8F 



BCD 



PUSH 


D 


PUSH 


H 


MOV 


B, A 


DAD 


H 


ADC 


A 


DAD 


H 


ADC 


A 


POP 


D 


DAD 


D 


ADC 


B 


DAD 


H 


ADC 


A 



.; SAVE DE POINTER IN STACK 

.; SAVE ACCUMULATED LOWER 16 BITS 

.= SAVE A IN B REG, 

.; AHL ••:- AHL * 2 

.; AHL <- AHL * 4 

, RESTORE OLD LOWER 16 BITS TO DE REG, 
i AHL <- AHL + 5 

.: AHL <- AHL *1 10 
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031 A 47 
03 IB Di 
031C 1A 
031D 85 
031E 6F 
03 IF 7C 
0320 CE00 

0322 67 

0323 73 
03-24 CE0O 
0326 C3 

0000 



MOV 


B, 


A 


, SAVE A IN B REG, 


POP 


D 




.. R EST OF: E B C D D I G I T P 1 N T E R 


LDAX 


D 




.; GET NEW DIGIT 


ADD 


L 




.; ADD IN NEW DIGIT 


MOV 


L, 


A 




MOV 


A, 


H 




fiQI 







.; ADD IN CARRV 


MOV 


H, 


A 




MOV 


A, 


B 




AC I 







, ADD IN CARRV 


RET 








END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BB12 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 8008 □ 8080 



(us* additional sheets if necessary) 



BCD TO/FROM BINARY CONVERSION 

Subroutines are provided for: 

1. BCD to binary conversion 

2. Binary to BCD conversion 



None 



None. 



BCD to Binary 

1. D,E accumulated binary value 

2. H,L pointer to BCD string 

Binary to BCD 

1. D,E contain binary value 

2. H,L point to location to contain BCD string 



D,E contain accumulated binary equivalent. 
H,L contain address of BCD string. 



Registers Modified: 

All 



RAM Required: 

None 



ROM Required: 

BCD to binary 32 bytes 
Binary to BCD fi7 bytes 



Maximum Subroutine Nesting Level: 

1 



Assembler/Compiler Used* 



MAC 8 



Programmer: 



Company: 
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i REF. NO. BB12 

.> PROGRAM TITLE BCD TO/FROM BINARY CONVERSION 



BCD TO BINARY ROUTINE 

REGISTER USAGE 

DE - ACCUMULATED BINARY VALUE , SHOULD BE INITIALIZED TO 

HL - POINTER TO BCD STRING IN MEMORY 

A, B, C - USED AS TEMPORARIES 



BCDBIN 



0000 42 

0001 4B 

0002 CD1900 
0005 CD1900 

0008 ,~ 

*39 81 
t.<30A 5F 
000B 7A 
0O0C 88 
00OD 57 
000E CD1900 

0011 77 

0012 83 

0013 5F 

0014 7A 

0015 CE00 
0817 57 
0018 C9 



0019 7B 
001A 87 
001B 5F 
001C 7A 
001D 8F 
001E 57 
001F C9 

0000 



DOUBLE 



MOV B, D 
MOV C, E 
CALL DOUBLE 
CALL DOUBLE 
MOV A, E 
ADD C 
MOV E, A 
MOV A, D 
ADC B 
MOV D, A 
CALL DOUBLE 
MOV M, A 
SUI 30H 
ADD E 
MOV E, A 
MOV A, D 
AC I 
MOV D, A 
RET 



MOV A, E 

ADD A 

MOV E, A 

MOV A, D 

ADC A 

MOV D, A 
RET 
END 



.'SAVE INITIAL VALUE OF ACCUMULATOR 

; DE+2 -> DE 

± *4 



.; +5 

; +10 

.: GET NEXT DIGIT 

;FOR ASCII CONVERSION, REMOVE COMMENT SE 



ADD IN NEW DIGIT AND RETURN 



5-47 



S6S0 MACRO ASSEMBLER, VI. 



PAGE 1 



£1000 011027 
6002 CD1F00 
0006 01ES82 

0059 CD1F08 

00 60 01E902 
qqmP CD IF 06 
G812 018ft 00 
0015 CD IF OO 

00 IS 010108 

80 IE CD IF 08 
80 IE 09 



BINARY TO BCD ROUTINE 

REGISTER USAGE 

DE - BINftRV VALUE 

HL - POINTER TO BCD BUFFER IN MEMORY 

ft, B, C - USED ftS TEMPORARIES 



BINBCD 



LXI B, 18000 
CALL DIGIT 
LXI B, 1000 
CALL DIGIT 
LXI B, 1000 
CALL DIGIT 
L>:i B, 10 
CALL DIGIT 
LXI B, 1 
CALL DIGIT 
RET 



iT-ii'l-H C" 



■ifctiy 



0821 


7B 


0i322 


91 


£023 


5F 


802''! 


7ft 


8825 


QC; 


i'i\'A ~'<£ 


57 


0827 


FA2188 


OO 2 A 


7E 


602 B 


C681 


O02D 


r' i' 


08 2 E 


C22188 


6621 


7B 


8622 


SI 


8622 


5F 


002 , 'i 


7A 


O025 


yy 


0026 


57 


O027 


CD3B60 


08 2 A 


C9 


002B 


2C 



DIGIT 



Die 



DM 



INCHL 



MV I M, 8 



MOV A, E 
SUB C 
MOV E, A 
MOV A, D 
SBB B 
MOV D, A 
JM DI1 
MOV A, M 
AD I 1 
MOV M, ft 
JMP DI6 

MOV ft, E 

ADD C 

MOV E, A 

MOV A, D 

ADC B 

MOV D, A 
CALL INCHL 
RET 



INR L 



INITIALIZE DIGIT 
FOR BCD, DIGIT=6, 
FOR ASCII, DIGIT=30H 
SUBTRACT LOOP 



INCREMENT _rs D DIGIT 



ADJUST ACCUMULATOR FOR NEXT SEQUENCE 



HL + 1 



HL 



5-48 



8989 MACRO ASSEMBLER, VI. 



PAGE 2 



003C '" ' ^ 

G62D 2-1 

002 E C'3 
8 Pi ft ft 



RNZ 
INR H 
RET 
END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref. no 



BB14 



D 4004 □ 8008 g| 8080 Q 4040 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



GRAY TO BINARY CONVERSION 

CONVERTS UP TO 16 BITS OF CYCLIN GRAY INTO BINARY DATA. 
USED IN READING ENCODER OUTPUT WORDS. 



1 ROM 
1 CPU 



NONE 



GRAY DATA IN D-E REGISTER, E Q = LSB, UNUSED BITS = 



BINARY DATA IN D-E REGISTER, E Q = LSB 



Registers Modified: 



A,B,C, 



RAM Required: 



NONE 



ROM Required: 



20 BYTES 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
ISIS 8080 Macro Assembler, VI. 



Programmer: 



G. Mercola 

Data Works, Inc. 



Company: i 8 72 5 Bryart St. 

Northridge, Ca. 91324 
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ALGORITHM: 



N B = ((N G V V V V N G 



4 8 



Until N G / 2 n = 



Conversion Time = 36 D usee, 
(at 2 usec/instruction cycle) 

D = number of bits to the right 
of the most significant "1" 
in the Gray code input, +1. 



Example 





Gray (N Q ) 


Binary (Ng) 


15 


1000 


1111 


14 


1001 


1110 


13 


1011 


1101 


12 


1010 


1100 


11 


1110 


1011 


10 


1111 


1010 


9 


1101 


1001 


8 


1100 


1000 


7 


0100 


0111 


6 


0101 


0110 


5 


0111 


0101 


4 


0110 


0100 


3 


0010 


0011 


2 


0011 


0010 


1 


0001 


0001 





0000 


0000 
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.: REF. NO. BB14 

.; PROGRAM TITLE GRAV TO BINARY CONVERSION 



BINARV TO GRAV CODE CONVERSION <UP TO 16 BIT WORD::' 

1. LOAD GRAV WORD INTO D=E REGISTERS. 
•'RIGHT JUSTIFIED, UNUSED BITS=8> 

2. CALL SUBROUTINE 

3. ON RETURN, BINARV WORD IS IN D=E REGIbTERb. 



1088 

1888 CD 83 18 
1883 42 
884 4B 

1@05 78 

1886 B7 

1887 IF 
100^ 47 

1O03 1 79 

100^ IF 

100B 4F 

100Q: BO 
100Ct' C8 

10OE 79 
100F AB 

1010 5F 

1011 78 

1012 AA 
1813 57 

1014 C3051O 
1017 76 

8080 



GRAV : 



LOOP : 



ORG 


10001- 


CALL 


GRAV 


MOV 


B, D 


MOV 


C, E 


MOV 


A, B 


ORA 


A 


RAP. 




MOV 


B, A 


MOV 


A, C 


RAR 




MOV 


C, A 


ORA 


B 


RZ 




MOV 


A, C 


XRA 


E 


MOV 


E, A 


MOV 


A, B 


XRA 


D 


MOV 


D, A 


JMP 


LOOP 


HLT 




END 





, LOAD D TO B 
; LOAD E TO C 

.; LOAD B TO A 
.; OR. A WITH A 
; SHIFT RIGHT 
.; LOAD A TO B 

LOAD C TO A 
SHIFT RIGHT 
LOAD A TO C 

.; A OR B TO A 

.; RETURN IF ZERO 

.; LOAD C TO A 

; EXCL. OR A WITH E 

.; LOAD A TO E 



LOAD B TO A 

EXCL. OR A WITH D 

LOAD A TO D 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BA1 



□ 4004 C0 8008 (38080 Q 4040 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



BCD SUM FOR 8008 

PERFORMS THE SUM OF TWO BCD NUMBERS FOR THE 8008 MICROCOMPUTER. 
THE NUMBER OF DECADES IS A COMPILATION PARAMETER. 



MCS8 MICROCPT. 



PLM 8 COMPILER. 



THE TWO BCD NUMBERS ARE LOCATED IN MEMORY WITH DECADES ORDINATED IN 
ASCENDING ORDER IN CONTIGUOUS POSITIONS FROM NUM(O) TO NUM(N), ONE 
DECADE FOR EACH MEMORY POSITION. NOTE: "N" ALSO REPRESENTS THE POWER 
OF 10 OF THAT DECADE. THE ADDRESSUFTHE TWO LEAST SIGNIFICANT 
DECADES OF THE TWO NUMBERS ARE SENT TO THE PROCEDURE: 
PROCEDURE CALL = SUM(.ADD1,.ADD2) 



THE SUM OF THE TWO NUMBERS IS IN THE MEMORY POSITION ADD1. 
NOTE : ADD1 IS THE FIRST PARAMETER PASSED TO THE PROCEDURE. 
THE PROCEDURE RETURNS FOR NO OVERFLOW OR 1 FOR OVERFLOW FROM THE 
MOST SIGNIFICANT DECADE. 



Registers Modified: 

N/A 


Maximum Subroutine Nesting Level: 



RAM Required: 

8 + 2n (number of decades. These 
are the positions of the 2 numbers; 


Assembler/Compiler Used: 
PLM 8 


ROM Required: 
208 


Programmer: 

E, Massetti 

fcabv i Massetti 




Company: 2 0133 Milano 

via Ronchi 17, Italy 
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00001 
00002 




00003 




00004 




0Q n 05 




6 




00007 




00008 




00009 




00010 




00011 




00012 




00013 




00014 




00015 




00016 




00017 




00018 




00019 




00Q20 


2 


00021 


2 


00022 


2 


00023 


2 


00024 


2 


00025 


2 


00026 


2 


00027 


3 


00028 


3 


00029 


3 


00030 


4 


Of n 


4 


00vj2 


3 


00033 


3 


00034 


2 


00035 


2 


00036 


1 


00037 


1 


00038 


1 


00039 


1 


00040 


1 


00041 


1 


00042 


1 


NO PROGRAM 



/*REF. NO. BA1 */ 

/♦PROGRAM TITLE PROCEDURE BCD SUM FOR 8008 */ 

/* 

/* 

/* PROCEDURE FOR SUMMING TWO BCD NUMBER, CIFRE DECADES EACH. 

THE TWO ADDRESS OF THE FIRST DECADE OF EACH NUMBER, .ADD1 AND ADD2, ARE 

SENT TO THE PROCEDURE. 

THE TWO BCD NUMBER IN THE MEMORY ONE BCD DECADE IN EACH 

MEMORY POSITION ORDERED IN ASCENDING ORDER FROM NUM(O) TO 

NUM(N), WHERE N RAPRENSENTS ALSO THE POWER OF 10 OF THAT DECADE. 

RESULT IS SENT TO THE MEMORY POSITIONS OF THE FIRST ADDEND SENT 

TO THE PROCEDURE. */ 

DECLARE CIFRE LITERALLY '8'; /* THIS IS A COMPILER PARAMETER 

AND IS THE NUMBER OF DECADES FOR 
THAT COMPILATION. */ 

SUM : PROCEDURE (INDADD1 , INDADD2) BYTE; 
DECLARE (INDADD1,INDADD2) ADDRESS; 
DECLARE ADD1 BASED INDADD1 BYTE, 
ADD2 BASED INDADD2 BYTE, 
(RIPORTO,N) BYTE; 
RIPORTO =0; 
DO N=0 TO (CIFRE-1); 

ADD1 (N)=(ADDlCN)tADD2CN)tRIPORTO)AND OFH; 
/* AND NOW BCD CORRECTION ROUTINE*/ 
IF ADDKN) >9 THEN DO; 

ADD1 (N)=ADD1 (N)+6; 
RIPORTO si; 
END; 
ELSE RIPORTO =0; 

end; 
return riporto; 
END sum; 

/♦end of procedure. to test it there is now a sample call of sum 
with the numbers total and par, the result is in total*/ 
verify: declare total (cifre) byte, 

notok byte, 

parccifre)byte; 
notok=sum(. total,. par); 

EOF 
ERRORS 
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MICROCOMPUTER USER'S 
inUL- LIBRARY SUBMITTAL FORM ** . no. BB i 5 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 gg 8008 □ 8080 



(use additional sheets if necessary) 



LOG2A 

To calculate the Base 2 Log of a number between 1 and 255. 



None 



None 



Value of number in A 



L0G2(A) = B + ^ where B = characteristic and ^ = Mantissa. 
If % error is defined as 100 A - 2 B * c / 256 , then the 
maximum error is .311% which occurs A for A = 133 (decimal). 



Registers Modified: 
A,B,C.D.H&L 



RAM Required: 

None 



ROM Required: 
64 bytes 



Maximum Subroutine Nesting Level: 




Assembler/Compiler Used: 
MAC 8 



Programmer: 



Company: 



Bill Baker 

Bell Telephone Labs 



Room 1G625 
Holmdel, N.J. 07733 
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Explanation of L0G2A 



The program calculates the L0G2 (A) for any integer between 1 
and 255 in the following manner j 

Any integer A between 1 and 255 can be expressed in the 
form: 

B T 
A = 2 *(1 + j^r) where B and I are integers and 

< B < 7 and < I < 255 
The expression for L0G2 (A) in terms of B and r is: 

L0G2(A) = B + L0G2 (1 + ^) 

where B is the characteristic and L0G2 (1 + ^|^) . 
the mantissa. 256 1S 

B is determined by left shifting the accumulator (which 
contains A) until a carry bit is generated and subtracting 
the number, of shifts from 8. The number remainina in the 
accumulator is I. 

To determine the mantissa, I is expressed in the form: 

1 - 16 ' C + C l 

The nearest integer values of 

16 . C A 
D(C Q ) = 256 L0G2 (1 + 25( . ° ) 

for C Q from to 15 are stored in the program. 
C Q is used to look up the first approximation of 
256 • L0G2 (1 + JL-) 

C^ is used to interpolate between D(C Q ) and D(C n + 1). 

The maximum error between the log determined by this program 
and the true log (rounded to 8 bits) is 1/256, or a count of 
1 in C. If this were the only source of error, the maximum 
error in the resulting antilog would be .25%. However, there 
is an additional error which results from rounding off the 
mantissa to an accuracy of 8 bits. Thus, the maximum error 
encountered in using this program is greater than .25%. The 
maximum error occurs for A = 133 and is .311%. 
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.; REF. NO. BB15 

; PROGRAM TITLE LOG 2A 



0900 




0031 




0900 


0608 


0902 


A 7 


0902 


05 


0904 


17 


0905 


D20309 


09O3 


07 


0909 


07 


090 A 


07 


090B 


07 


090C 


•_' f 


090D 


E60F 


9F 


C631 


.__,.ll 


6F 


0912 


2609 


0914 


7E 


0915 


2D 


0916 


96 


0917 


57 


09 IS 


6E 


0919 


79 


091A 


E6F0 


091C 


2603 


091E 


17 


891F 


D22409 


8922 


S2 


0923 


A7 


9924 


25 


8925 


C21E09 


0928 


0F 


0929 


0F 


092R 


0F 


09 2B 


E61F 


092D 


85 


092E 


4F 


r->>~j - ~'CT 


C9 


093-0 


00162C40 


0934 


53657686 



LLL 
. L0G2 
L0G2A 



LOl : 



ORG 440OQ 
EQU 061Q 
A> RESULT IN B, C 



L02: 



LG3: 



DATR0 



MVI 
ANA 

DCR 

RAL 

JNC 

RLC 

PLC 

RLC 

RLC 

MOV D, A 

AN I 

AD I 

MOV 

MV I 

MOV 

DCR 

SUB 

MOV 

MOV 

MOV 

AN I 

MV I 

RAL 
•JNC 
ADD 
ANA 

DCR 
JNZ 
RRC 
RRC 
RRC 
AN I 
ADD 
MOV 
RET 

DB 
DB 



B, 8 
A 

B 

LOl 



017Q 

LLL 

L, A 

H, 011Q 

A, M 

L 

M 

D, A 

L, M 

A.. C 

360Q 

H, 3 



L03 

D 

A 



H 
L02 



037Q 
L 
C, A 



SET CARRY. TO O 

SHIFT MSS TO 
CARRY POSITION 

A=16+C0+C1 



C=16+C1+CU 



-H VALUE OF D TABLE 



D-D 
L=C 



"'.'.C0+1> -D(CO> 
":'.C0+i::'-D(C0> 
(. C0 > 



A=16+C0.; CY : =y 

3 SINCE LSB OF CO IS O 



.; A=C0+CD<C0+1>-DO:'.0> 3/2 
; fl=C0*CD<C0+l>-D<C8> 3/16 



000.. 022- 044.- 064 
083, 101, 118, 134 
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PAGE 2 



093::= 
093C 



96A5B3C1 
CFDCE8F4 



DB 
DB 



150, 165, 179, 193 
207, 220, 232, 244 



0940 




0940 


3E00 


0942 


D308 


0344 


3E88 


0946 


CD0009 


0949 


r o 


"j4fl 


FE03 


.-_.<4C 


C26A09 


094F 


79 


0950 


FE00 


0952 


C26A09 


0955 


3E3C 


0957 


CD0009 


095A 


i O 


095B 


FE06 


095D 


U^6A09 


0960 


79 


0961 


FEES 


0963 


C26A09 


0966 


3:EFF 


0968 


D308 


096A 


76 


000© 





TEST PROGRAM FOR L0G2A 
FOR PROPER OPERATION 
OUTPUT PORT 8 GOES TO 
ALL ONES AND PROCESSOR 
GOES INTO HALT STATE. 
FOR IMPROPER OPERATION, 
; OUTPUT PORT 8 GOES TO ALL 
ZEROES AND PROCESSOR 
GOES INTO HALT STATE 



ERROR 



ORG 


4500Q 


MV I 


A, 


OUT 


10Q 


MVI 


A, 8 


CALL 


L0G2A 


MOV 


A, B 


CPI 


~- 


JNZ 


ERROR 


MOV 


A, C 


CPI 





•JNZ 


ERROR 


MVI 


A, 74Q 


CALL 


L0G2A 


MOV 


A, B 


CP I 


6 


•JNZ 


ERROR 


MOV 


A, C 


CPI 


350Q 


JNZ 


ERROR 


MVI 


A, 377Q 


OUT 


10Q 


HLT 




END 
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intel 



MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM Ref No -ma 



D 4004 D 4040 D 8008 00 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



DIGITAL TO ANALOG CONVERSION FOR EIGHT OUTPUTS 



The program processes a list of sight 16 bit values to generate 
sight pulss width modulated voltages, which can be filtered to 
provide inexpensive digital to analog conversion ussful for procoss 
control or other low speed requiremente. See ths attached explanation 
of ths program '8 operation. 



A clock interrupt generator (lins frequency or faster) and 
an sight bit latch (Intsl 8212) at output address 1, with voltago 
level convereion and filtering aa required* 



To be useful, something should eet the output valuee in the table* 



A table of eight double byte values and rsmaindsrs is required, 
in ths following orders 

low order value #1 
high order value #1 
low order remainder #1 
high order remainder #1 
low order value #2 



high order remainder #6 
£ight analog output voltagee are produced at the filter outputs. 



Refers Modified: fl> B> Q> £> ^ ,_ 
SP ie ueed and restored. 


Assembler/Compiler Used: 

8080 MACRO ASSEMBLER, VER. 2.2 


RAM Required: 

34 bytee 


Programmer: 

W. M. Hawkine 


ROM Required: 

32 bytes 


Company: 

Herculea Inc. t Ras. Ctr. 


Maximum Subroutine Nesting Level: 
none 


Address: 

Wilmington, Da, 19899 



98-034B 

5-62 



Qigital to Analog Conversion for Eight Outputs 
w". W. Hawkins 4/18/75 



The program produces a PWM output by adding the present 
desired output value to the past remainder at a rate determined 
by the clock interrupt that starts it. When a carry results 
from the addition, the output is turned on. When no carry 
occurs, the output is turned off. 

The desired output value in the table ie a binary fraction 
of full output, so that a value of 0000 produces no output and 
a value of FFFFH produces full output. If the value is 8000H, 
a carry is generated on every other pass which produces a 
square wave at half the clock frequency whose average value is 
exactly half of full output. 

The Atlffl output can be filtered with a simple R and C 
combination to obtain a smooth analog output voltage. The 
demande on the filter become greater as the value moves away 
from 8000H. At 5# output the carry occurs only once in every 
twenty clock interrupts. 

The stack pointer and register pairs are used to process 
the list because time is essential. Execution time (and 
fraction of system loading) determines the upper interrupt 
rate limit. The lower limit is set by the deeired filter 
time constant. An 80B0 with fast memory can execute the 
program in about 330 microseconds. 

please call me at 302-995-3562 if further explanation 
would help. 
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RAGE 1 



; RER. NO. BB16 
PROGRAM NAME DIGITAL TO ANALOG CONVERSION ROR EIGHT OUTPUTb 



DIGITAL TO ANALOG CONVERSION FOR EIGHT OUTRUTb 
W. M. HAWKINS 4/3/75 

CONVERT 8 WORDS IN "TABLE" TO 8 BITS IN A LATCH 
AT A PATE THAT CAN BE FILTERED TO GIVE AN 
Ar.OEPTABLE ANALOG OUTPUT WITH 16 BIT RESOLUTION. 



THE 8212 LATCH ADDREbb 

STOP USING THE SP 
ZERO H AN D L 
ZERO A 

MOVE SP TO HL 
SAVE THE POINTER 
PROCESS 8 VALUES 

.; POINT TO DATA 



.; LOAD DE WITH A VALUE 

.; LPOAD HL WITH REMAINDER 

.; ADD VALUE TO REMAINDER 

.; PUT C BIT INTO A 

.; NEW REMAINDER 

.; PASS REMA I NDER 

.; OSAVE 8 CYCLES;- 

.; COUNT PASSES 

.; GO UNT I L DONE 



SEND BITS TO LATCH 
GET POINTER. TO HL 
RESTORE SP 

ENABLE , IF REQUIRED 
FOR. TESTING ONLY * 



0000 






ORG 


8 


0001 




DAC 


EQU 


1 


0000 


F3 


DAC8 : 


DI 




0001 


210O00 




LXI 


H, 8888H 


0004 


7C 




MOV 


A, H 


T005 


39 




DAD 


SP 


dO06 


220010 




SHLD 


SAVSP 


0009 


06O8 




MV I 


B, 8 


000B 


310210 




LXI 


SP, TABLE 


00 OE 


Dl 


LOOP : 


POP 


D 


00 OF 


El 




POP 


H 


0010 


19 




DAD 


D 


0011 


IF 




RAP. 




0012 


E5 




PUSH 


H 


0013 


—• ~- 




I NX 


SP 


0014 


~'~* 




I NX 


SP 


0015 


05 




DCR 


B 


0016 


C2OE00 




,TNZ 


LOOP 


0019 


D301 


• : 


OUT 


DAC 


001B 


2A0O10 




LHLD 


SAVSP 


001E 


F9 




SPHL 




001 F 


FB 




EI 




8028 


76 




HLT 





•1 000 

1008 8888 
1882 



SET UP THE RAM STORAGE 

ORG 1888H 

SAVSP : DW 8 

TABLE . Db -i-ii 



OR WHEREVER RAM IS AT 

PLACE TO PUT SP 

3 VALUE ..REMAINDER PAIR: 
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WW08 



END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM **• no 



BB17 



D 4004 D 4040 D 8008 H 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



Binary to HEX Routine 



To read a paper tape in binary (EBCDIC) format from the Intel 
HSPTR to the MCS-80 System 



TTY on port and 1 
HSPTR on port 1 and 3 



SEE WRITEUP 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



Programmer: 
Sigmund Hj erde 



Company: 



National Institute of Technolo 
Akerson. 2 AC 



Address: 



OSLO 1, Norway 



98-034B 
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MICROCOPUTER USER'S LIBRARY SUMITTAL FORM 
8080 Microprosessor . 

PROGRAM TITLE: BINARY to HEX Routine. 

The program perform loading of paper- 
tape in binary format (EBCDIC) from 
HSPTR (INTEL) to the MCS-80 system 
as shown in figure below. 



••••• •••• 

••••• • ••• 

• ••• 
• •• • 



2007 

£J!t 



280D 



RAM memory 



LOV7 BYTE 



HIGH BYTE 



LOW BYTE 



HIGH BYTE 



LOW BYTE 



HIGH BYTE 



ETC 



1. WORD 



I- 



WORD 



3. WORD 



After data is loaded in RAM the program 
will exchange the contents of high byte 
and low byte for each 16 bit word in 
memory . 

The program is able to read an exhange 
2" K bytes. 
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Page 2 

FUNCTION: The program store data from papertape 

in memory from location 1000 tol7FF. 

To execute the READ routine of one character 
from papertape, a CALL to subroutine in 
monitor location 3EAO is used. 

When the first character (4-bits) is read 
to accumulater a RLC moves the contents 
four times left and store it in D-register. 

Next character is read to accumulator 
and a XRA D command masks the content of 
D-register to the content of accumulator. 

8 -bit data in accumulator (two characters 
from papertape) is moved to memory loca- 
tion addressed by the contents of 
registers H and L*. 

A CALL to subroutine TEST is a test on 
memory location 17 FF. When 17 FF is 
reached the 2 K byte of data is read 
from papertape and the program is ready 
to exhange the content of location 1000 

with 1001, 1002 with 1003 and 

so on. 



Required handware: 

TTY on port and 1 
HSPTR on port 1 and 3 

Programmer: Sigmund Hjerde 

Company: National Institute of Technology 

Akersvn. 24 C, 

OSLO 1 

NORWAY 
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i REF. NO. BB17. 

.; PROGRAM TITLE BINARV TO HEX ROUTINE 



1E00 




1E00 210010 




1E03 0602 


NEW : 


1E05 1E04 




1E07 CDA03E 


READ 


1EOA 05 




1E0B CA171E 




1E0E 07 


ROTA 


1E0F ID 




1E10 C20E1E 




1E13 57 




1E14 C3071E 




1E17 AA 




E18 77 




_cE19 23 




1E1A CD321E 




1E1D D2031E 




1E20 210010 




1E23 56 


VEND 


1E24 23 




1E25 5E 




1E26 2B 




1E27 73 




1E28 23 




1E29 72 




1E2A CD321E 




1E2D 23 




1E2E D2231E 




1E31 C7 




1E32 E5 


TEST: 


1E33 013317 




1E36 09 




1E37 El 




1E38 C9 




0000 





ORG 

LXI 

MVI 

MVI 

CALL 

DCR 

JZ 

RLC 

DCR 

JN2 

MOV 

JMP 

XRA 

MOV 

I NX 

CALL 

JNC 

LXI 

MOV 

IJNX 

MOV 

DCX 

MOV 

I NX 

MOV 

CALL 

I NX 

■JNC 

RST 

PUSH 

LXI 

DAD 

POP 

RET 

END 



1EO0H 

H, 1000H 

B, 02 

E, 04 

3EA0H 

B 

ACC 

E 

ROTA 

D, A 

READ 

D 

M, A 

H 

TEST 

NEW 

H, 1000H 

D, M 
H 

E, M 
H 

M, E 
H 

M, D 
TEST 
H 
VEND 



H 

B, 5939D 

B 

H 



BIN - HEX <HSPTR) 

DATA ADDRESS FROM HSPTR 

CHARACTER LOOP COUNTER 

BIT LOOP COUNTER 

RI SUBROUTINE IN MONITOR 

CHARACTER LOOP 

TWO CHARACTERS IS READ 

ROTATE LEFT 

BIT LOOP 

CONTENT IN ACC MOVED LEFT 4 TIMES 

SAVE ACC IN D-REG 

READ NEXT CHARACTER 

MASK ACC AND D-REG IN ACC 

8-BIT DATA TO MEMORV 

NEXT ADDRESS IN MEMORV 

CHECK SIZE OF MEMORV, STOP AT LOG 

READ NEXT TWO CHARACTERS 

START OF "EXCHANGE HIGH-LOW BVTE" 

FIRST LOG TO D-REG 

NEXT LOC TO E-REG 

E-REG TO FIRST LOC 

D-REG TO NEXT LOC 

CONTINUE 

SUBROUTINE FOR CHECK SIZE IN MEM 
ABLE TO GEN CARRV AT LOC 17FF 
CARRV GENERATED ? 
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Ref.#BB18 



inSltg INTEL ° "SER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 0C8O8O D8048 D8085 D Other. 



(use additional sheets if necessary) 



BINARY TO BCD SUBROUTINE 

Converts unsigned binary number in D, E to 5 BCD digits 



None 



None 



D,E contain binary value 
H,L pointer to output buffer 



5 BCD digits in buffer 
H,L contain address of MSD 



Registers Modified: 
Nc 



Jone 



RAM Required: 
None 



ROM Required: 
52 10 bytes 



Maximum Subroutine Nesting Level: 

N.A. 



Assembler/Compiler Used: 
MAC- 80 Vers 3.0 



© Intel Corporation, 1976 



Programmer 



eis S. Gundestrup 



Company: 



)mpany: 

Geophysical Isotope Lab. 



Address: 
Haraldsgade 6 



City: 



Jk-2200 Cph N 



State: 

DENMARK 



98-034D 
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.; REF. NO. BB18 

i PROGRAM TITLE BINARY TO BCD SUBROUTINE 



0000 


F5 


0001 


C5 


0002 


D5 


0003 


E5 


0004 


EB 


05 


01FOD8 


<-.d93 


CD2400 


000B 


0118FC 


000E 


CD2400 


0011 


019CFF 


0014 


CD2400 


0017 


01F6FF 


001A 


CD2400 


001D 


7D 


001E 


12 


001F 


El 


0020 


Dl 


0021 


CI 


0022 


Fl 


0023 


C9 


0024 


AF 


0025 


D5 


0026 


5D 


0027 


54 


0028 


"?<"■ 


0029 


09 


002A 


DA26O0 


002D 


3D 


002E 


6B 


r~-< 2F 


62 


- - -30 


Dl 


0031 


12 


0032 


13 



; BINARY TO BCD SUBROUTINE 

..INPUT: UNSIGNED BINARY NUMBER IN D, E 

•■ POINTER TO LOWEST BUFFER LOC IN HL 

; OUTPUT: 5 BCD-DIGITS, ONE DIGIT PER MEMORY LOC 
i HL POINT TO MSD IN LOWEST LOCATION. 



BNBCD: PUSH PSW 
PUSH B 
PUSH D 
PUSH H 
XCHG 

LXI B, -10000 
CALL DECNO 
LXI B, -1000 
CALL DECNO 
LXI B, -100 
CALL DECNO 
LXI B, -10 
CALL DECNO 
MOV A, L 
STAX D 
POP H 
POP D 
POP B 
POP PSW 
RET 

DECNO: XRA A 
PUSH D 
MOV E, L 
MOV D, H 
INR A 
DAD B 

JC DECNO+2 
DCR A 
MOV L, E 
MOV H, D 
POP D 
STAX D 
I NX D 



SAVE VARIABLES 

GET NUMBER IN HL, ADDR IN DE 
GET MSD 



; GET LSD 
i STORE IT 



.;0 TO A. USE 30H IF ASCII 
i SAVE ADDR 
.; SAVE BINARY 

; INCREMENT DIGIT 

J SUBTRACT 

i RESULT NEGATIVE? 

; YES, RESTORE DIGIT COUNT 

:. BINARY NUMBER 

; AND ADDRESS 
J STORE DIGIT 
.; INCREMENT POINTER 
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88_<.< C9 
8080 



RET 
END 
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MICROCOMPUTER USERS 
LIBRARY SUBMITTAL FORM Ref No 



BA2 



Program 
Title 

Function 



Required 



Required 
Software 



Input 
Parameters 



Output 
Results 



D4004 D4040 D8008 (2)8080 



(um additional shaats if necessary) 



Hex to Decimal Conversion 

Converts any hex number between and FFFFH to the decimal equivalent 



TTY 

H.S. Reader 

Intel lee 8 



Program Object Tape 



Load program with system monitor. Enter hex number on TTY followed 
by a CR and LF. 



The decimal equivalent is printed on the following line and operation 
is returned to the system monitor. 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

Intel lee 8 Macro Assembler 



Programmer: 

Jon Zoller 



Company: 

Dorsett Electronics 



Address: 



Box 36 



Tulsa, Ok 74101 



98-0348 
5-76 



irrtel 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM m. no. 



BB19 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 08080 



(use additional sheets if necessary) 



BCD Input and Direct Conversion to Binary Routine 

Fast and efficient BCD to Binary conversion code. Presented in (pseudo) 
subroutine form for Implementation in ROM to allow reading of BCD input 
value, conversion to binary representation and branching based on loadi 
H & L Registers to PC. 



An Input Port for BCD parameter. 



ng 



None, except for user-written main-line assembly coding. 



BCD value to be read from user-designated Input Port, or BCD value 
can be brought into subroutine instead, via A-Register, for example 



Binary representation is in A-Register upon completion of execution. 
Two other registers, C and E (or other user-designated registers or 
memory locations depending upon use of ROM or RAM) are used and original 
contents are altered. 



Registers Modified: 

3, including A-Register 


Assembler/Compiler Used: 

Intel lec 8 Macro Assembler 


RAM Required: 

None 


Programmer: 

M.H. Gansler 


ROM Required: 

18 Bytes 


Company: 

I6M/NTI 


Maximum Subroutine Nesting Level: 


Address: P.O.BOX 3950 

Bellingham, WA 98225 



98-034B 
5-78 



Ti 



8888 MACRO ASSEMBLER, VI. 8 



PAGE 1 



.: REF. NO. BB19 

i PROGRAM TITLE BCD INPUT & DIRECT CONVERSION TO BINARV 



8888 


DB84 


8882 


4F 


8883 


E68F 


8885 


5F 


8886 


79 


8887 


E6F8 


888S 


8F 


888A 


8F 


( 9B 


4F 


t'dOC 


8F 


888D 


8F 


888E 


81 


888F 


87 


8818 


83 


8811 


E9 



BCD INPUT AND DIRECT CONVERSION TO BINARV 
•'PSELIDO > SUBROUTINE BCDBN — INPUT & 
CONVERT BCD VALUE TO BINARV REPRESENTATION 



BCDBN 



8888 



IN 

MOV 

AN I 

MOV 

MOV 

AN I 

RRC 

RRC 

MOV 

RRC 

RRC 

ADD 

RLC 

ADD 

PCHL 



END 



4 

C, A 
8FH 
E, A 
A, C 
8F8H 



C, A 



READ BCD VALUE 
STORE IN C. REGISTER 
MASK FOR UNIT'S DIGIT 
STORE IN E. REGISTER 
GET BCD VALUE BACK 
MASK FOR TEN'S DIGIT 

ROTATE TWICE RIGHT 
RETAIN IN C. REGISTER 

ROTATE TWICE RIGHT AGAIN 

ADD C. REGISTER CONTENTS 

ROTATE ONE LEFT 

ADD UNIT'S DIGIT 

AND RETURN WITH BINARV 

REPRESENTATION IN 

A. REGISTER 



5-80 



iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BA4 



D 4004 D 4040 D 8008 Bf 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



HEX TO/ FROM BCD 

Converts hexadecimal numbers input on TTY to decimal numbers 
and vice versa. Decimal numbers must be ended with D, hexa- 
decimals with H. Conversion begins with space. If first char 
input is CR, control is given back to monitor. Largest number 
handled is two bytes binary. 



Intellec 8/MOD 80, TTY 



Intellec 8/mOD 80 Monitor, vers. 2.0 



Number to be converted is input on TTY ended either with H or 
D. Conversion begins with space. If first char input is CR, 
execution is ended. If CR is recognized later, it is inter- 
preted as error. 



Converted number is printed on the same line as the input 
number. It errors are detected a I is printed. 



Registers Modified: 
ALL 


Assembler/Compiler Used: 

8080 Macro Assembler, Vers. 3.0 


RAM Required: 

14 (for stack) 


Programmer: 

markus Ufarsta 


ROM Required: 

415 


Company: 

TELEVA 


Maximum Subroutine Nesting Level: 

3 


Address: Takkatie 7a 

SF-00370 Helsinki 37 Finland 



98-034B 

5-81 



inU 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



MICROCOMPUTER USERS 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BC3 



D 4004 D 4040 D 8008 jG 8080 



(use additional sheets if necessary) 



FIXED AND FLOATING POINT ARITHMETIC ROUTINES - MATH 

Includes routines for fixed and floating point arithmetic together with 
a demonstration program that performs algebraic evaluation (from left to 
right, with no operator precedence) and allows unlimited parentheses 
nesting. An expression withir. parentheses can be evaluated and displayed 
by "a* 11 , and is preserved as a subtotal, etc. 

On input, space, rubout and all control characters are echoed and 
ignored. Allowable printing characters are: 

through 9 and - 
* / + - 

( ) - 

P i.e. the value 3. 1416 
E i.e. the value 2.7183 or exponent entry 
(context sensitive) 

Output uses exponential notation as required and preserves k decimal 
digits. Input may use exponential notation. 

Numbers can be expressed in the approximate range + 0.7 * 10 - 
39 to + 0.8 * 10 38, and zero. 

All code is re-entrant and recursive techniques are used. All memory is 
dynamically allocated and deallocated. 

An example of program operation is attached. 

Test system is entered @ 2000H. 



Program offered 
on diskette only. 



Registers Modified: 
See comments on routines 



RAM Required: Dynamic allocation, 
based on stack pointer. Most usage 
requires less than 100 bytes. 



ROM Required: 

2000-26DE HEX assembled 

plus monitor console 1/0 



Maximum Subroutine Nesting Level: 
No intrinsic limit. See c omments. 

8/78 



Assembler/Compiler Used: 

Intel V3-0 modified 



Programmer: 
Charles B. Falconer 



Company: 



Yale University 



Address: Room 6 i6 CB , Yale-New Haven 
Hospital, 789 Howard Ave, New Haven 



06504 



98-0 ^ p 

5-83 



iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BC4 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 XI 8080 



(use additional -sheets if necessary) 



FLOATING POINT ELEMENTARY FUNCTION PACKAGE 



CALCULATES FLOATING POINT 



SQUARE ROOT 

LOGARITHM 

EXPONENTIAL FUNCTION 

SINE 

COSINE 

ARC TANGENT 

HYPERBOLIC SINE 

HYPERBOLIC COSINE 



NONE 



FLOATING POINT PACKAGE, INCLUDING FIX AND FLT ROUTINES - BC1 



FURNISHED IN FLOATING POINT ACCUMULATOR - 
SEE ATTACHED DOCUMENTATION 



FURNISHED IN FLOATING POINT ACCUMULATOR 
SEE ATTACHED DOCUMENTATION 



Registers Modified: 

ALL, SEE ATTACHED DOCUMENTATION 



RAM Required: 24 BYTES IN FLOATING 
POINT SCRATCH BANK 



ROM Required: 



UP TO 865 BYTES FOR 
ENTIRE PACKAGE 



Maximum Subroutine Nesting Level: 
6 (incl. misc. uses of stack) plus 



Floating Point Package 



Assembler/Compiler Used: 
8080 MACRO ASSEMBLER VER 1JI 



Programmer: 
O.C. JUELICH 



Company: mjssu^ SYSTEMS DIVISION 

ROCKWELL INTERNATIONAL CORP. 
1 6 5 79 6 BC 



Address: 



4300 E. FIFTH AVENUE 
COLUMBUS, OHIO 43216 



98-034B 

5-85 



intel 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BC5 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 H 8080 



(use additional sheets if necessary) 



FLOATING POINT PACKAGE WITH BCD CONVERSION ROUTINE FOR 8080 

Performs floating addition, subtraction, multiplication, division, 
fixing, floating, negation, and conversion from floating point to 
BCD with exponent. (Details at beginning of program). 



8080 Microcomputer system with 767 locations free in ROM and 21 
locations free in RAM. BCD output of FBCD routine can be arranged 
and output to, eg., a printer, if desired. 



No other software required except the calling program. 



For FADD, FSUB, FDIV, and FMPY, the numbers to be operated upon 
are loaded into C-D-E and B-H-L. For FIXX, FNEG, and FBCD, the 
number to be operated upon is loaded into C-D-E. For FL0T, the 
number to be floated is loaded into D-E. (See details at the 
beginning of the program). 



Results from FIXX are returned to D-E, all others in 0-D-E. (For 
details, see descriptions at the beginning of the program and at 
each routine.) 



Registers Modified: 



All registers 



RAM Required: 
21 Locations 
(9 Variables. 12 Iocs, for Stack) 



Company: 



ROM Required: 

767 Locations 

(S?S wlrhnnf RPD rnnvorfllnn rant-in^ Tho Procter and Gamble Company 



Maximum Subroutine Nesting Level: 3 

(4 counting the CALL to these rout 



Assembler/Compiler Used: 

MACRO (3080) 



Programmer: 
Dr. Keith J. Caserta 



Address: 
nes) 



The Ivorydale Technical Cente 
Cincinnati, Ohio 45217 



98-034B 

5-87 



insite 



Ref.# BC6 

INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 1^8080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



LEAST SQUARES QUADRATIC FITTING ROUTINE FOR 8080 

Performs summations and matrix manipulation for fitting up to 256 
floating point X-Y pairs to a function of the form: 

aX 2 + bX + c = Y 



8080 microcomputer system with 595 locations free in ROM for the FIT 
routine and 785 locations in ROM for the floating point package. 
2338 RAM locations are required for the FIT routine (for a 256 point 
fit) and 21 locations for the floating point package. 



Floating Point Package with BCD Conversion Routine for 8080 - BC5 

X values must be contained in a 768 location array, XX1. The following 
768 locations are reserved for calculated X values (XS1 array). 
Floated Y values must be contained in the 768 location YY1 array. 
The A register must contain the number of points (up to 256) to be 
fitted. 



Coefficients a, b, and c are contained in 1134 and the following 2 
locations (a), II24 and the following 2 locations Cb), and I I 14 and 
the following 2 locations (c) upon return - in floating point format, 



Registers Modified: 

A I I registers 



RAM Required: 
2359 locations (for a 256 point fit) 



ROM Required: 1380 locations 
(920 without BCD conversion routine) 



Maximum Subroutine Nesting Level: 
4 (5 counting call to FIT) 



Assembler/Compiler Used: 

MACRO (8080) 



Programmer: 
Dr. Keith J. Caserta 



Company: 
The Procter and Gamble Company 



Address: 
The Ivorydale Technical Center 



City: 
Cincinnati 



State: 
Ohio 45217 



© Intel Corporation. 1976 



98-034D 

5-89 



intel 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BC7 



D 4004 D 4040 B 8008 D 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



FLOATING POINT PROCEDURES 
DUMMY PL/M INTERFACE PROCEDURES 



NONE 



PL/IY1 - FLOATING POINT INTERFACE (ASSEMBLER) 



- BC8 



REVISED 8/8/77 



NOTE: BC7 is ordered as 
one program with BC9. 



Registers Modified: 
ALL 



RAM Required: 





ROM Required: 

124 byte 



Maximum Subroutine Nesting Level: 

SE PROGRAM 



Assembler/Compiler Used: 

PL/VER. 3.3 



Programmer: 

STOLBERG-ROHR MS E15V22 



Company: 

DANFOSS A/S 



Address: DK6430 NORDBORG 
DENMARK 



8/8/77 



98-034B 

5-91 



»LV1 VFRS 3.3 

VM1 , , Ref. No. BC7 

Ouu-wl I /* STOLBtRG-fcOHR, EL-LAB, E15-V22, 2876, ISA156C. */ 

C0C02 1 /*****************************************************«*****/ 

00003 1 /* 

00:C4 I /* FLOATING POINT PROCEDURES . A1560 */ 

00005 1 /* 

30007 1 

00C08 1 /* INITIALIZE: MOVES A SECTION OF CODE FROM ROM MEMORY TO SCRATCHPAD 

00009 J RAM MEMORY IM PREPARATION FOR EXECUTION OF MULTIPLY AND DIVIDE 

00010 1 SUBROUTINES. OVERFLOW FLAG SET TO ZERO. NEST LEVEL */ 
00311 1 FINIT: PROCEDURE; 

00012 2 50 TO 10CH; /* ADDRESS IN PLM-FL.PNT. INTERFACE PROGRAM * 

0CG13 2 END FINIT; 

0C01* 1 

50015 I /* F.P. ADD: ADDS THE SPECIFIED OPERAND TO THE F.P. ACC, RESULT 

00:i6 1 IN-TEMP= COPY OF F.P. ACC, RETJRN VALUE * ADDR. OF TEMP. 

:cc l7 1 3 NEST LEVELS. 

0CD13 1 FADD: PROCEDURE (OPERAND) ADDRESS; 

C0C19 2 DECLARE OPERAND ADDRESS; 

00020 2 GO TO 10?H; 

00321 2 END FADD; 

00C22 1 

00023 1 /• F.P. SUBTRACT: 3 NEST LEVELS. <l/ 

00024 1 FSUB: PROCEOUPE (OPERAND) ADDRESS; 

00025 2 DECLARE OPERAND ADDRESS; 
00-0 26 2 ^0 TO 10CH; 

£ 00:2f 2 END FSUB; 

> 0C:28 1 

0'.t'»?.t» i /* «-.P. '*UM1!>LY. 3 NFST LJVCLS. */ 



CC030 1 FtfJL: PROCEDURE (OPERAND) ADDRESS? 

30331 2 DECLARE OPERAND ADDRESS; 

00032 2 SO TO 109H; 

00033 2 END FMUL; 

00034 1 

00035 1 /* F.P. DIVIDE. 3 NEST LEVELS, */ 

00036 1 FDIV: PROCEDURE (OPERAND* ADDRESS? 
0C037 2 DECLARE OPERAND ADDRESS; 
00038 2 GO TO 10CH; 

00C39 2 END FDIV; 

0C040 1 

0OC41 1 /* F.P, ABSOLUTE: SETS THE S t GM OF F*i>.AC€. POSITIVE. 

00042 1 1 NEST LEVEL. */ 
D0043 1 FABS: PROCEDURE ADDRESS; 
0C044 2 GO TO 10FH; 

00045 2 END FABS; 

00046 1 

q C 247 1 /* ?•?. ZERD: SETS THE F.P.AQC* * j* 1 NEST LEVEL 

00043 1 FZRO: PROCEDURE ADDRESS; 
0CD49 2 GO TO 112H; 

CCC50 2 E^D F2R3; 

0CP51 i 

00" 52 1 /* E- p - TEST: SETS H2 u:^"\ .-Is- ', * ' -• - * *-' 

00C53 1 FTST: PROCEDURE ADDRESS; 

00C54 2 GO TO 115H; 

0C055 2 END FTST; 

OC056 1 

0OC57 1 /* F.P. COMPLEMENT: CHANGE T^fc SIGN OF rM£ r.r.ACC. 

00053 1 1 NEST LFVEL */ 

£ cro59 1 pCHS: PRiKKDUPr vddvtSS; 



I 

to 
O 



00060 

00061 

00062 

00063 

C0064 

*0C65 

000&6 

00067 

C0068 

00069 

00070 

D0071 

00072 

0C073 

?C07« 

00075 

00076 

00077 

:C078 

00079 

00080 

00381 

0C082 

00083 

0OC8* 

00085 

00086 

0CC87 

30C88 



2 

2 

1 

1 

1 

1 

2 

2 

2 

1 

1 

1 

1 

2 

2 

2 

1 

1 

I 

1 

2 

2 

2 

1 

1 

1 

1 

2 

2 

2 



C<0 TO 118H; 
ENO FCHS; 

/* ?.?• LOAD: LOADS SPEF. OPERAND INTO F.P.ACC. 
2 NEST LEVtLS. */ 
FLOD: PROCEDURE (OPERAND) ADDRESS; 
DECLARE OPERAND ADDRESS; 
SO TO. 118H; 
END FLOD; 

/* F.P. INPUT: CONVERTS CHAR. STRING (MAX. 32 DIG J IN MEM- 
ORY, TO F.P. FORMAT IN F.P.ACC. * NEST LEVELS */ 
FINP: PROCEDURE (STRINGBUFFER) ADDRESS; 
DECLARE STRINGBUFFER ADDRESS; 
30 TO 11EH; 
END FINP; 

/* F.P. OUTPUT: COVERTS VALUE IN ACC. TO 13 DEC DIG*. IN 
OJTBJFFER. 4 NEST LEVELS. */ 

FOUi: PROCEDURE OJTBJFFER) ADORESS; 
DECLARE OUTBUFFER ADDRESS; 
30 TO 121H; 
ENO FOUT; 
/♦ F.P. FLDAT: CONVERTS BINARY VALUE ' IN 5 BYTE BINSTRING 
( 32 BIT + 8 BIT SCALE FACTOR ) TO F.P. FORMAT IN ACC. 
3 NEST LEVELS. */ 
FFLT: PROCEDURE (BINSTRING) AODRESS; 

DECLARL BINSTRING ADDRESS; 
GO TO 124H; 
rUO FFlT; 



en 
I 

to 
to 

a 



0090 


1 


30091 


I 


00092 


1 


000 93 


1 


000 94- 


2 


00095 


2 


00096 


2 


00097 


1 


00098 


1 


00099 


I 


00100 


1 


00101 


2 


D0102 


2 



/* F.P. FIX: CONVERTS VAL'JE IN ACC. TO FIX FORMAT 

( SCALE FACT3R ), RESULT IN TEMP. 2 NEST LEVELS. •/ 
FFIX: PROCEDURE (SCALE) ADDRESS; 
DECLARE SCALE BYTE; 
GO TO 127H; 
END FFIX; 

/* OVERFLOW, RETURNS THE VALUE OF THE OVERFLOW FLAG* 
AND CLEAR THE FLAG, */ 
OVERFLOW: PROCEDURE BYTE; 

GO TO 12AH; 
END OVERFLOW; 



iny 



MICROCOMPUTER USERS 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BC8 



D 4004 D 4040 ED 8008 □ 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



PL/M - FLOATING POINT INTERFACE 

INTERFACES PL/M CONVENTIONS WITH FLOATING POINT ASSEMBLER FORMAT. 



NONE 



FLOATING POINT MATH PACKAGE -BC] 

FLOATING POINT FORMAT CONVERSION PACKAGE -BC2 



AS PR PL/M DEFINITIONS 



START ADDRESS OF A COPY OF FL. PNT. ACCUMULATOR 

TEMP (0)= SIGNIFICANS INDEX 

TEMP (l) = FL. PNT. ACC. EXPONENT 

TEMP (2) c " SIGN & 1' FRACTION 

TENP (3)= •• 2 * FRACTION 

TEMP (4) " 3» » 



Registers Modified: 
All 



RAM Required: 

AS TO FL.PNT. + BYTE 



ROM Required: 

292 BYTE 



Maximum Subroutine Nesting Level: 

SEE PROGRAM 



Assembler/Compiler Used: 

INTELLEC8/M0D8 VER 2.0 



Programmer: 

STOLBERG-ROHR MS E15V22 



Company: 

DANFOSS A/S 



Address: 



DK6430 NORDBORG 
DENMARK 



98-0348 

5-93 



Ref.#BC9 



■ ■ ■ TM 

insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/40 $8008 D8080 D8048 D8085 D3000 D Other. 



(use additional sheets if necessary) 



FLOATING POINT DECIMAL & HEX FORMAT CONVERSION 

THE PROGRAM CONVERTS A NUMBER OF MAX 27 CHARACTERS TO STANDARD 
13 DIGIT DECIMAL FORMAT AND TO FLOATING POINT ACCUMULATOR FORM 
IN HEX FORMAT ON THE TELETYPE (SEE EXAMPLE) 



TTY 
INTELLEC 8 



1) INTELLEC 8/MOD 8 VER. 2.1 MONITOR 

2) PL/M - FLOATING POINT INTERFACE 

3) PL/M FLOATING POINT PROCEDURES 

4) FLOATING POINT MATH PACKAGE 

5) FLOATING POINT FORMAT CONVERSION PACKAGE 



(Ref. No. BC8) 

(Ref. No. BC7) 

(Ref. No. BCD 

(Ref. No. BC2) 



A NUMBER AS DEFINED IN 5) OF MAX 27 CHARACTERS, 
TERMINATED WITH A 'RUB OUT 1 



REVISED 8/8/77 



THE PROGRAM STARTS OUTPUTTING A HEAD LINE, AND INDICATE 
INPUT MODE WITH A •?», AFTER RECEIVING A 'RUB OUT 1 THE 
PROGRAM OUTPUTS THE FLOATING POINT ACCUMULATOR IN DECIMAL 
AND HEX FORMAT 



NOTE: BC9 Is ordered as 
one program with BC7, 



Registers Modified: 
ALL 


Programmer: 
STOLBERG-ROHR, MSE15V22 


RAM Required: 
80 BYTE 


Company: 
DANFOSS A/S 


ROM Required: 

717 BYTE 


Address: 
DK 6430 NORDBORG 


Maximum Subroutine Nesting Level: 
5 LEVELS 


City: 


Assembler/Compiler Used: 

PL/M VER. 3.3 


State: 

DENMARK 



8/8/77 



Intel Corporation, 1976 



5-95 



98 0340 



00001 

00002 

00003 

f H 

OUv/05 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00 017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00^29 

30 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

e- i5 

0c^56 

00057 

00058 

00059 

00060 



/*REF NO. BC9 */ 

/♦PROGRAM TITLE FLOATING POINT DECIMAL HEX FORMAT CONVERSION */ 

/* ST0LBERG-R3HR, EL-LAB, E15-V22, 2876, ISAI560. */ 

/♦**♦****** **********************♦********♦******/ 

'•* */ 

/* FLOATING POINT PROCEDURES . A1560 */ 

'* */ 

/♦***********************»*** t + tmmmmmmm/ 

/* INITIALIZE: MOVES A SECTION OF CODE FROM ROM MEMORY TO SCRATCHPAD 
RAM MEMORY IN PREPARATION FOR EXECUTION OF MULTIPLY AND DIVIDE 
SUBROUTINES. OVERFLOW FLAG SET TO ZERO. NEST LEVEL 

FINIT: PROCEDURE; 

GO TO 100H; /* ADDRESS IN PLM-FL.PNT. INTERFACE PRDGRAM */ 
END FINIT; 

/* F.P.ADD; ADDS THE SPECIFIED OPERAND TO THE F.P. ACC, RESULT 
IN TEMPs COPY OF F.P. ACC, RETURN VALUE = ADDR. OF TEMP. 
3 NEST LEVELS. 

FADO: PROCEDURE (OPERAND) ADDRESS; 

DECLARE OPERAND ADDRESS; 
GO TO 103H; 
END FADD; 

/* F.P. SUBTRACT: 3 NEST LEVELS. 

FSU3-: PROCEDURE (OPERAND) ADDRESS; 
DECLARE OPERAND ADDRESS; 
GO TO 106H; 
END FSUB; 

/* f.p. multiply. 3 nest levels. */ 

fmul: procedure (operand) address; 
declare operand address; 

GO TO 109H; 
END FMUL; 

/* F.P. DIVIDE. 3 NEST LEVELS. */ 

FDIV: PROCEDURE (OPERAND) ADDRESS; 
DECLARE OPERAND ADDRESS; 
GO TO ioch; 
END FD1V; 

/* F.P. ABSOLUTE: SETS THE SIGN OF F. P. ACC. POSITIVE. 
1 NEST LEVEL. */ 

FABS: PROCEDURE ADDRESS; 

GO TO iofh; 
END FABS; 

/♦ F.P. ZERO: SETS THE F.P. ACC. = 0. 1 NEST LEVEL */ 

5-97 



00061 


1 


00062 


2 


00063 


2 


54 


1 


0Ov,65 


1 


00066 


1 


00067 


1 


00068 


2 


00069 


2 


00070 


1 

i 


00071 


1 


00072 


1 


00073 


1 


00074 


1 


00075 


2 


00076 


2 


00077 


1 


00078 


1 


00079 


1 


00080 


1 


00081 


1 


00082 


2 


00083 


2 


00084 


2 


00085 


1 


00086 


1 


00087 


1 


00088 


1 


n »89 


1 


90 


2 


00091 


2 


00092 


2 


00093 


1 


00094 


1 


00095 


1 


00096 


1 


00097 


1 


00098 


2 


00099 


2 


00100 


2 


00101 


1 


00102 


1 


00103 


1 


00104 


1 


00105 


1 


00106 


1 


00107 


2 


00108 


2 


00109 


2 


00110 


1 


00111 


1 


00112 


1 


00113 


1 


00114 


1 


f 15 


2 


OOi 16 


2 


00117 


2 


00118 


1 


00119 


1 


00120 


1 



FZRO: PROCEDURE ADDRESS; 

30 TO 112H; 
END FZRO; 

/* F.P. TEST: SETS THE CONTROL FLAGS. 1 NEST LEVEL. */ 

FTST: PROCEDURE ADDRESS; 

GO TO 115H; 
END FTST; 

/* F.P. COMPLEMENT: CHANGE THE SIGN OF THE F.P.ACC. 
1 NEST LEVEL */ 

FCHS: PROCEDURE ADDRESS; 

go ro H8H; 

END FCHS; 

/♦ F.P. LOAD: LOADS SPEF. OPERAND INTO F.P.ACC. 
2 NEST LEVELS. */ 

FLOD: PROCEDURE (OPERAND) ADDRESS; 
DECLARE OPERAND ADDRESS; 
GO TO, 118H; 
END FLOD; 

/* F.P. INPUT: CONVERTS CHAR. STRING (MAX. 32 DIG ) IN MEM- 
ORY, TO F.P. FORMAT IN F. P.ACC 4 NNEST LEVELS */ 

FINP: PROCEDURE ( STRINGBUFFER) ADDRESS; 
DECLARE STRINGBUFFER ADDRESS; 
GO TO 11 eh; 
END FlNP; 

/* F.P. OUTPUT: CONVERTS VALUE IN ACC. TO 13 DEC DIG. IN 
OUTBUFFER. 4 NEST LEVELS. */ 

FOUT: PROCEDURE (OUTBUFFER) ADDRESS; 
DECLARE OUTBUFFER ADDRESS; 
GO TO 121 h; 
END FOUT; 

/♦ F.P. FLOAT: CONVERTS BINARY VALUE IN 5 BYTE BINSTRING 
( 32 BIT ♦ 8 BIT SCALE FACTOR ) TO F.P. FORMAT IN ACC . 
3 NEST LEVELS. */ 

FFLT: PROCEDURE (BINSTRING) ADDRESS; 
DECLARE BINSTRING ADDRESS; 
GO TO 124H; 

end fflt; 

/* F.P. FIX: CONVERTS VALUE IN ACC. TO FIX FORMAT 

( SCALE FACTOR ), RESULT IN TEMP. 2 NEST LEVELS. */ 

FFIX: PROCEDURE (SCALE) ADDRESS; 
DECLARE SCALE BYTE; 
GO TO 127H; 
END FFIX; 



/* OVERFLOW, RETURNS THE VALUE OF THE OVERFLOW FLAG, 
AND CLEAR THE FLAG. */ 
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00121 

00122 

00123 

14 

00i25 

00126 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 

00139 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00i 49 

30 

00151 

00152 

00153 

00154 

00155 

00156 

00157 

00158 

00159 

00160 

00161 

00162 

00163 

00164 

00165 

00166 

00167 

00168 

00169 

00170 

00171 

001 12 

00173 

00174 

Or -»5 

Ooi /6 

00177 

00178 

00179 

00180 



1 

1 

2 

2 

1 

1 

1 

2 

2 

2 

1 

1 

1 

2 

2 

1 

1 

1 

2 

2 

1 

1 

1 

2 

2 

2 

2 

2 

2 

2 

2 



overflow: procedure byte; 

30 TO 12AH; 
END OVERFLOW; 



mOJr: PROCEDURE (X); /* ROUTINES IN VER 2.1 MONITOR */ 
DECLARE X BYTE; 
GO TO 3809H; 
END ttyout; 



TTYIN: PROCEDURE BYTE; 

GO TO 3F44H; 
END TTYIN; 



CRLF: PROCEDURE; 

GO TO 3CC7H; 
END CRLF; 



HEX: PROCEDURE (X); 

DECLARE (X,¥) BYTE; 

Y = X AND OFH; 

X=SHR(X,4); 

IF X>9 THEN X=X+'A'-10; ELSE 

X=xt'0'; 

CALL mOUT(X); 

IF Y>9 THEN Y=Y+'A'-10; ELSE 

Y=Y*'0'; 

CALL TTYOUT(Y), 

return; 

END HEX; 

/* 

OUTPUT HEAD 
*/ 



DECLARE HEAD DATA ('INPUT F.P. FORMAT 

DECLARE (X,J) BYTE; 

DECLARE INBUFC28) BYTE, 0UTBUFU3) BYTE; 

DECLARE Y ADDRESS; DECLARE (ACC BASED Y) (5) BtfTE; 

CALL CRLF; CALL FINIT; 

DO J=l TO 5; CALL TTYOUTC '); END; 

DO J=0 TO 4; CALL TTYOUT ( HEAD( J) ) ; END; 

DO J = l TO 20;CALL TTYOUTC '); END; 

DO J=5 TO LAST(HEAD); CALL TTYOUTC HEAD (J) ) ; END; 

CALL CRLF; 

/* 

MAIM PROGRAM 
*/ 

DO aIHILE 1; 

J,x=0; 

CALL TTYOUT (3FH); CALL TTYOUTC '); 

/* 

KEYPBOARD INPUT ROUTINE 



EXP. ACC1 ACC2 ACC3'); 
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00181 2 */ 

00182 2 

00183 2 
14 2 
00x85 3 

00186 3 

00187 3 

00188 2 

00189 2 

00190 2 

00191 2 

00192 2 

00193 2 

00194 2 

00195 2 

00196 2 

00197 3 

00198 3 

00199 3 

00200 2 

00201 2 

00202 1 
NO PROGRAM 



03 V4ILE X<>4FH? 

X,INBUF(J)=ITYIN-30H; 

if j=26 them do; x , inbuf ( j ) = 4fh; end; else 

j=j+i; 
end; 
x=JH; 

Y=FINP(. INBUF); 

DO J=l TO 4; IMBUF(J)=ACCCJ); end; 

k=foutc.outbuf); 

DO J = X TO 27; CALL TTYOUTC '); EMD; 

do J=o to 12; :all ttyout(outbufcj)CO'); end; 

CALL TTYOUTC '); CALL TT¥OUTC = '); 



DO J = l 

CALL 
CALL 
CALL 

emd; 

CALL 

end; 

EOF 
ERRORS 



TO 4; 

TTYOUTC '); CALL 

HEXCIN3UFCJ)); 

TTYOUTC '); 

crlf; 



TTYOUTC 



) 



5-100 



intel 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref No 



BS20 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 □ 8008 £3 8060 



(use additional sheets if necessary) 



BINARY MULTIPLICATION AND LEADING ZERO BLANKING - N-BYTE 

THE PROGRAM PERFORMS BINARY MULTIPLICATION ON TWO 
NUMBERS AND RETURNS A RESULT THAT MAY BE UP TO 
255 BYTES IN LENGTH. 



TTY ON PORT AND 1 



QBM1IE- BINARY MULTIPLICATION* 

QLZIIE- REMOVE LEADING ZEROES SUBROUTINE* 



THE SYSTEM MONITOR IS USED TO VERIFY THE 
RESULT BY CHECKING THE APPROPRIATE MEMORY 
LOCATIONS. 



Registers Modified: 

ALL 


Assembler/Compiler Used: 

INTELLEC 8 /MOD 80 V3.0 


RAM Required: AL L 3 PROGRAMS 
STACK = 16 BYTES* 
PROGRAM* 219 BYTES. 


Programmer: 

CHARLES SOOLEY 


ROM Required: 

NONE 


Company: 

ENVIRONMENT CANADA 


Maximum Subroutine Nesting Level: 

TWO 


Address: 49Q5 DUFFER j N STREET* 
DOWNS VIEW ONTARIO* CANADA. 
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ANY 
AND 



LENGTH 
RETURNS 



REF. NO. BB59 

PROGRAM TITLE N-BVTE BINARY MULTIPLICATION & LEADING ZERO BLANK 

QBM11S 

BINARY MULTIPLICATION PROGRAM. 
THE PROGRAM ACCEPTS TWO FIELDS OF 
< SUBJECT TO THE CONDITIONS BELOW > 
THEIR PRODUCT. 
NOTES : 

1> STACK ORGANIZATION OF REQUIRED 
LOCAT I ON EXPLANAT I ON 

SP+6 ADDRESS OF RESULT 

SP+4 ADDRESS OF MULTIPLICAND 

SP+2 ADDRESS OF MULTIPLIER 
SP QBM11 ENTRY POINT 

2> THE FIRST WORD OF EACH AREA IS SET 



PARAMETERS 
LABEL 
MULTR 
MULTC 
MULTP 
BEGIN 
UP AS 



FOLLOWS : 

FIELD WIDTH, MSBYTE, , LSBYTE. 

3> THE RESULT WILL CONTAIN NO LEADING ZEROES 
4> THE RESULT AREA MUST BE AT LEAST THE T 

WIDTH OF THE MULTIPLIER AREA PLUS THE 

MULTIPLICAND AREA. 
5> THE MULTIPLIER WILL CONTAIN ZEROES AT 

COMPLETION OF THE PROGRAM. 
6> THE SUM OF THE MULTIPLIER AND MULTIPLICAND 

AREAS MUST NOT EXCEED 255 <FF> BYTES 
7> ADDITIONAL SUBROUTINES USED: 

QLZ11- LEADING ZERO BLANKING. 

+ :+: + + :+:* + + + + + + :+::+: + + * + * + + :f: + :+:**4::+:** + + * + + ** + :+:** + + + + } f :! t:** 

DATE : JULY 22, 1975. 

AUTHOR: CHARLES SOOLEY. 

DEPARTMENT: ATMOSPHERIC ENVIRONMENT 
SERVICE <AIDX>, 
DOWNSVIEW CANADA. 

* + + :+: r^****:********:*^ 

SHIFTS RIGHT 1 BIT THE NUMBER OF BYTES 
CONTAINED AT ADDRESS. 



5HIFR 



ROTATE 



MACRO ADDRS 

LHLD ADDRS 

MOV A, M 

MOV C, A 

INX H 

MOV A, M 

RAR 

MOV M, A 

DCR C 

JNZ ROTATE 



NUMBER OF BYTES 



LOCATION OF BYTE TO SHIFT 
WORD TO SHIFT 
SHIFT RIGHT ONE BIT 
RETURN WORD TO MEMORY 
DECREASE WORD COUNT 
CONTINUE UNTIL ZERO 
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ENDM 


0100 








ORG 0100H 


0100 






NULTP : 


DS 2 


0102 






NULTC : 


DS 2 


9104 






T-.-^ 1 1! Jp ■ 


DS 2 


0106 


-■-• 




BEGIN. 


I NX SP 


0107 


-• -; 






I NX SP 


0108 


El 






POP H 


0109 


220001 




SHLD 0100H 


0100 


El 






POP H 


01OD 


220; 


::01 




SHLD 0102H 


0110 


El 






POP H 


011.1 


220*- 


HZH 




SHLD O104H 


0114 


33 






DCX SP 


0115 


33 






DCX SP 


0116 


3B 






DCX SP 


0117 


3B 






DCX SP 


0118 


3:B 






DCX SP 


GUIS 


3B 






DCX SP 


011A 


3B 






DCX SP 


011B 


3B 






DCX SP 


^"10 






QLZ11 


EQU 0760H 


L.^IC 


2 A 0001 


ZERO : 


LHLD MULTP 


011F 


7E 






MOV A, M 


0120 


2A0 


201 




LHLD MULTC 


0123: 


86 






ADD M 


0124 


4F 






MOV C, A 


0125 


2A0401 




LHLD MULTR 


0128 


i' I* 






MOV M, A 


0129 


AF 






XRA A 


012fl 






CLEAR : 


I NX H 


012B 


r i' 






MOV M, A 


012C 


0D 






DCR C 


012D 


C22 


A01 




,TNZ CLEAR 



MAIN PROGRAM LOOP 



0130 


2AO001 






LHLD MULTP 


0133 


46 






MOV B, M 


0134 


0E08 






MVI C, 8 


0136 


C5 


LOi 


HP: 


PUSH B 


6137 


F5 






PUSH PSW 


0138 


AF 


+ 




XRfl A 
SHIFR MULTP 


0139 


2AO001 


+ 




LHLD O0100H 


013C 


7E 


+ 




MOV A, M 


P13D 


4F 


+ 




MOV C, A 


<3E 


•r-'"' 


+ROTATE : 


I NX H 


013F 


7E 


-i- 




MuV H.< M 


0140 


IF 


+ 




RAR 



ADDRESS OF MULTP 

.; ADDRESS OF MULTC 

.; ADDRESS OF MULTR 

.; RETURN SP TO PROPER 
; POSITION 



NUMBER OF BVTES OF THE 
MULTIPLIER IS ADDED 

TO THE NUMBER OF BVTES 



OF THE MULTIPLICAND 

C LEAR A C C U M U L A T R 

THE TOTAL NUMBER OF BVTE'i 

THAT THE RESULT WILL 

OCCUPV ARE ZEROED 

JUMP UNTIL COMPLETE 



SET COUNTERS FOR LOOP 
NUMBER OF BVTES IN MULTP 
P. BITS PER BVTE COUNTER 



RESETS CARRV 
NUMBER OF BVTES 



LOCATION OF BVTE TO SHIFT 
i.ii-jpr. jQ ci_{TpT 

SHIFT RIGHT ONE BIT 
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8141 


r' t' 


+ 


MOV M, A 


0142 


0D 


+ 


DCR C 


0143 


C23E01 


+ 


JNZ ROTATE 


0146 


D24C01 




JNC PARTB 


0149 


CD6C01 




CALL ADDRE 






+PRRTB : 


SHIFR MULTR 


014C 


2R0401 


+ 


LHLD 0dl04H 


014F 


7E 


+ 


MOV A, M 


0150 


4F 


+ 


MOV C, A 


0151 


"-•'"•% 


+ROTATE : 


I NX H 


0152 


7E 


+ 


MOV A, M 


0153 


IF 


+ 


RAR 


0154 


■ i 


T 


MOV M, A 


0155 


0D 


+ 


DCR C 


0156 


C25101 


+ 


JNZ ROTATE 


0159 


Fl 




POP PSW 


015A 


CI 




POP B 


015B 


0D 




DCR C 


015C 


C23601 




JNZ LOOP 


"-5F 


05 




DCR B 


. *60 


0E08 




MVI C, 8 


0162 


C23601 




■JNZ LOOP 


0165 


2A0401 




LHLD MULTR 


0168 


CD0007 




CALL QLZ11 


016B 


C9 




RET 



.; RETURN WORD TO MEMORV 
.: DECREASE WORD COUNT 
i CONTINUE UNTIL ZERO 

;CARRV BIT IS ZERO ON JUMP 
.: ADDING MULTC TO MULTR 
.' SHIFT RESULT RIGHT 
; NUMBER OF BVTES 



.; LOCATION OF BVTE TO SHIFT 

.; WORD TO SHIFT 

.: SHIFT RIGHT ONE BIT 

.: RETURN WORD TO MEMORV 

.: DECREASE WORD COUNT 

.; CONTINUE UNTIL ZERO 



■> DECREASE INTERNAL COUNTER 
; CONTINUE FOR ONE BVTE 
, LOOP UNTIL TOTAL 

:• BVTES ARE DONE 

.; PACK RESULT 



ADDS THE MULTC TO THE RESULT 



016C 2A0401 
016F EB 
0170 2A0201 

0173 46 

0174 48 

0175 23 

0176 13 

0177 05 

0178 C27501 
017B AF 
017C 1A 
017D 8E 
017E 12 
017F 0D 
0180 C8 
fH81 IB 

82 2B 
8183 C37C81 

0000 



ADDRE 



EMUC 



ADDING 



LHLD MULTR 
XCHG 

LHLD MULTC 
MOV B, M 
MOV C, B 

I NX H 
I NX D 
DCR B 
JNZ EMUC 
XRA A 
LDAX D 
ADC M 
STAX D 
DCR C 
RZ 

DCX D 
DCX H 

JMP ADDING 
END 



; INCREASE HL AND DE 
; COUNTERS TO THE ADDRESS 
;OF THE LEAST SIGNIFICANT 
;BVTE OF MULTC AND MULTR 



i CLEAR CARRV BIT 

.'LOAD LOWER BVTE 

; ADD MULTC 

; RETURN SUM TO MULTR 

.; DECREASE COUNTER 

.; RETURN ON ZERO 

;NEXT MEMORV LOCATION 

.; CONTINUE ADDING. 
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; + *************************************** 1 ********* 

; QLZ11S 

; ************************************************* 

; LEADING ZERO BLANKING OF FIELD BEGINNING 
.; AT ADDRESS CONTAINED IN REGISTERS HL. 
.; NOTES . 
; 1> ADDRESS CONTENTS 

HL FIELD WIDTH <W> 
; HL+1 DATA BVTE 1 



0700 



©7 


00 


0600 


07 


'02 


E5 


07 


'03: 


4E 


■* 


'04 


'*££ 


►_• i' 


"05 


7E 


07 


'06 


D600 


©70S 


C21207 


07 


'OB 


04 


07 


'0C 


0D 


07 


? OD 


C20407 


0710 


El 


07 


? 11 


C9 


07 


? 12 


70 


©7 


7 13 


D60O 


0715 


C21A07 


0718 


El 


0" 


?±S 


C9 


071 A 


Dl 


0" 


fib 


1A 


0" 


?±c 


90 


0' 


71D 


CS 





71E 


12 





71F 


47 





720 


13 


0721 


7E 





722 


12 





-?•->■? 


23 


1-1 


"'24 


05 




25 


C22007 





700 


C9 



HL+W DATA BVTE W. 
2> THE FIELD WIDTH IS MODIFIED TO REFLECT 

ANY LEADING ZEROES THAT ARE REMOVED. 
3> CONTENTS OF ALL REGISTERS ARE MODIFIED. 
ORG 0700H 



QLZ11 



CHECK 



PACK 



ALLt-E 



MOVE 



0000 



MVI B, © 
PUSH H 
MOV CM 
I NX H 
MOV A, M 
SUI 
JNZ PACK 
INR B 
DCR C 
JNZ CHECK 
POP H 
RET 

MOV A, B 
SUI 
JNZ ALLZE 
POP H 
RET 
POP D 
LDAX D 
SUB B 
RZ 

STAX D 
MOV B, A 
I NX D 
MOV A, M 
STAX D 
I NX H 
DCR B 
JNZ MOVE 
RET 
END 



CLEAR REGISTER B 

NUMBER OF BVTES IN RESULT 



CHECK TO SEE IF LEADING 
ZERO IS FOUND 
NUMBER CF LEADING ZEROES 
NUMBER OF WORDS TO CHECK 



IF THERE IS NO LEADING 
ZEROES RETURN 



NUMBER OF WORDS TO 

TRANSFER 

RETURN IF ALL OF RESULT 

IS ZERO 

PACK NUMBER OF WORDS 

NUMBER OF WORDS TO MOVE 
; POINTER TO FIRST WORD 
; PACK WORDS 
; START AT BEGINNING 
; OF RESULT AREA 
i CONTINUE UNTIL ALL 
; WORDS ARE MOVED 
;PflCK FINISHED. 



5-106 



Ref.#BA5 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 H8080 D8048 D8085 D Other. 



{use additional sheets if necessary) 



DECIMAL MULTIPLICATION SUBROUTINE - DMULT 

To multiply M Decimal Digits by N Decimal Digits and store the product - 
7 digits x 3 digits as written, but easy to expand if required 
(See additional sheets for explanation in detail. ) 



As required by supporting software 



User f s program to load multiplicand and multiplier into specified mem- 
ory locations, and to extract product from specified memory locations 



Multiplicand to be stored 
Multiplier to be stored 
Product delivered to 



1F00(LSD) to 1F06(MSD). 
1F0A(LSD) to 1F0C(MSD). 
1F20(LSD) to 1F29(MSD). 



Total storage used by routine, including input and output, is from 
1F00 to 1F2C inclusive. 



Input and output data are in BCD Format, occupying the four lowest bits 
in each store location. 



Registers Modified: 

A,B,C,D,E,H, L 



RAM Required: 

(about) 44 bytes 



ROM Required: 

(about) 320 bytes 



Maximum Subroutine Nesting Level: 
3including DMULT 



Assembler/Compiler Used: 

INTELLEC 8 MACRO ASSEMBLER 



Programmer: 

Peter Hand 



Company: 

De La Rue Instruments Ltd. 



Address: 

Norway Rd. 

City: 



Hilsea, Portsmouth 



State: 



England 



© Intel Corporation, 1976 
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MICROCOMPUTER 

LIBRARY SUBMITTAL FORM Ref. *>. 



BA6 



D 4004 D 8008 g 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



BCD Multiplication 

hfciltiplies an up to six digit bed number by a 

4 digit bed number providing a ten digit bed result. 
All numbers are unsigned. 



One ROM with partial product look-up table, (see attached) 



None 



RAM Contents Symbol #bytes Data format 



Multiplicand HOLD 



Multiplier 



K0NST 



LS-Digit...MS-Digit 
One digit per byte 
Right justified 

MS-Digit. . .LS-Digit 
Two digits per byte 



Register contents - don f t care 

Product is stored in RRAM at symbol location SUM, 
with two digits per byte, LS-byte first thru MS-byte. 



Registers Modified: 
A,b,c,d,e,h,l 


Maximum Subroutine Nesting Level: 

Three 


RAM Required: 

26 bytes 


Assembler/Compiler Used: 

8080 Macro Assembler 


ROM Required: 

Table look up- 100 bytes 


Programmer: 

Daniel S. Coolidge 


Program- 225 bytes 


Company: 

Barnes Engineerin Co. 

30 flnrnnPTVP Rri - Stamford. Conn. 
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ADDENDUM TO MICROCOMPUTER USER'S LIBRARY SUBMITTAL FORM 
Ref.- Required Hardware for program. 

The program makes use of a table look-up to determine partial 

products. It does this by composing the bed numbers as the 

first and second half of the least significant byte of a 

PROM address. In a system which utilizes 256 X 8 PROMS, 

the most significant byte of a memory address calls up a particular 

PROM. This is the value of the symbol MLTBL. Hence the PROM 

is programmed by placing the product of the internal addresses 

read in BCD in memory. For example: assume PROM with most 

significant byte address OAH, and with a call to read from 

memory the contents of 0A48H. PROM address 48H would contain 

the product of 4 and 8 expressed as 32H. This method wastes 

some memory, but considerably speeds up the process of BCD 

multiplication. 
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REF. NO. BA6 

PROGRAM TITLE BCD MULTIPLICATION 



THESE VALUE ASSIGNED ONLV FOR PURPOSE OF 
ASSEMBLY - THEV MAV BE RE-DEFINED AT WILL 



005© 




MLTBL 


EQU 


50H 


OFAO 




KONST 


EQU 


4800D 


0FA4 




•HOLD 


EQU 


4004D 


OFAA 




TEMP 


EQU 


4010D 


0FBO 




SUM 
OPEN : 


EQU 


4016D 


0000 


97 




SUB 


A 


0001 


32B00F 




STA 


SUM 


0004 


32B10F 




STA 


SUM+1 


0007 


32B20F 




STA 


SUM+2 


100A 


32B30F 




STA 


SUM+3 


rl100D 


32B40F 




STA 


SUM+4 


0010 


32B50F 




STA 


SUM+5 


8813 


32B60F 




STA 


SUM+6 


0016 


32B70F 




STA 


SUM+7 


0019 


32B80F 




STA 


SUM+8 


88 1C 


32B90F 




STA 


SUM+9 


00 IF 


3AA00F 




LDA 


KONST 


0022 


E60F 




AN I 


OFH 


0024 


07 




RLC 




0025 


07 




RLC 




0026 


07 




RLC 




0027 


07 




RLC 




0028 


67 




MOV 


H, A 


8029 


E68F 




AN I 


OFH 


00 2B 


01AA0F 




LXI 


B, TEMP 


002E 


21B00F 




LXI 


H, SUM 


0031 


1E00 




MVI 


E, 


8033 


CDC208 




CALL 


CONST 


0036 


3AA00F 




LDA 


KONST 


0039 


E6F0 




AN I 


0FOH 


003B 


67 




MOV 


H, A 


003C 


CDA700 




CALL 


PART 


003F 


01AA0F 




LXI 


B, TEMP 


0042 


21B10F 




LXI 


H, SUM+1 


0O45 


1E00 




MVI 


E, O 


Iy47 


CDC 200 




CALL 


CONST 


0O4 A 


3AA1.0F 




LDA 


KONST+1 


004D 


E60F 




AN I 


OFH 



CLEAR A AND CARRV 



GET LOW ORDER DIGITS OF MULTPLR 
MASK OUT HIGH ORDER DIGIT 



STORE LEFT JUSTIFIED DIGIT IN H 
COMPUTE PARTIAL PRODUCT 
PREPARE FOR SUBROUTINE 



CREATE -' SUM " 

GET NEXT DIGIT OF MULTIPLICAND 

MASK OUT LOW ORDER DIGIT 

CREATE NEXT PARTIAL PRODUCT 
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004F 


07 


0050 


07 


0051 


07 


0052 


07 


0053 


67 


0054 


CDA700 


0057 


01AA0F 


005A 


21B20F 


005D 


1E00 


005F 


CDC200 


0062 


3AA10F 


0065 


67 


QB66 


CDA700 


&&€9 


01AA0F 


006C 


21B30F 


006F 


1E00 


0071 


CDC200 


0074 


01B00F 


0077 


97 


0078 


5F 


0079 


2608 


>37B 
O07C 


0A 


57 


007D 


E60F 


007F 


02 


0080 


7A 


0081 


0F 


0082 


0F 


0083 


0F 


0084 


0F 


0085 


E60F 


0087 


57 


0088 


97 


0089 


03 


008A 


0A 


008B 


8~: 


008C 


27 


008D 


1E00 


008F 


D29400 


0092 


1E10 


0094 


t'iil 


0095 


27 


&Q9S 


D29B00 


0099 


1E10 


009B 


57 


009C 


E60F 


^09E 
)09F 


02 


7C 


00A0 


D601 


00A2 


67 



COMP 



LOOP 



NEXT 



MORE 



RLC 

RLC 

RLC 

RLC 

MOV 

CALL 

LXI 

LXI 

MVI 

CALL 

LDA 

MOV 

CALL 

LXI 

LXI 

MVI 

CALL 

LXI 

SUB 

MOV 

MVI 

LDAX 

MOV 

AN I 

STAX 

10V 

?RC 

RRC 

RRC 

RRC 

AN I 

MOV 

SUB 

I NX 

LDAX 

ADD 

DAA 

MVI 

•JNC 

MVI 

ADD 

DAA 

JNC 

MVI 

MOV 

AN I 

STAX 

MOV 

SUI 

MOV 



H, A 

PART 

B, TEMP 

H, SUM+2 

E, 

CONST 

KONST+1 

H, A 

PART 

B, TEMP 

H, SUM+3 

E, 

CONST 

B, SUM 

A 

E, A 

H, 8D 

B 

D, A 

OFH 

B 

A, D 



OFH 

D, A 
A 

B 
B 
E 

E, 
NEXT 
E, 10H 
D 

MORE 
E, 10H 
D, A 
OFH 
B 

A, H 
ID 
H, A 



CLEAR CARRY AND ACCUMULATOR 

CLEAR E REG 

INITIALIZE LOOP COUNTER 



PREPARE 1ST DIGIT OF PRODUCT 
REPLACE SUM DIGIT W/PRODUCT DIGIT 
GET HIGH ORDER DIGIT 
RIGHT JUSTIFY 



MASK DIGIT 

STORE IN D REG 

CLEAR CARRY AND ACCULMULATOR 

GET NEXT DIGIT OF SUM 
ADD ANY CARRIES 

CLEAR "CARRY REGISTER" 

IF CARRY RESULTS, PLACE IN E REG 

ADD SPIILLOVER DIGIT 



IF CARRY RESULT, STORE IN E REG 

STORE RESULT IN D 

MASK LOW ORDER DIGIT 

STORE, REPLACING 'SUM- DIGIT 

GET LOOP COUNTER 

DECREMENT LOOP COUNTER 

STORE LOOP COUNTER 
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00A3 C28000 JNZ LOOP .- IF LOOP COUNTER O0 REPEAT LOOP 

fifiAF. C9 RET 

00A7 11A40F PART- LXI D, HOLD , MULTIPLICAND ADDREbb IN D 

00 A A OlAAOF LXI B, TEMP .; PARTIAL PRODUCT ADDREbb IN B 

ROAD E c i PUSH H 

0OAE 2E85 MV.I L, 5 

0OB0 CDE80O LUP1: CALL MUL 

00B3 02 STAX B 

00 B 4 03 I NX E: 

0OB5 13 I NX D 

00B6 2D DCR L 

O0B7 97 SUB A 

00B3 BD CMP L 

00B9 C2B000 JNZ LUP1 

00BC CDE800 CALL MUL 

0OBF El POP H 

00C0 02 STAX B 

0OC1 C9 RET 

O0C2 97 CONST: SUB A 

00C3 1E0O MVI E, 

00C5 1606 MVI D, 6D 

10C7 OA LUP2: LDAX B 

0OC8 33 ADD E 

0OC9 27 DAA 

00CA 1EO0 MV I E, O 

00CC D2D100 JNC ALPHA 

00CF 1E10 MVI E, 10H 

00D1 86 ALPHA: ADD M 

00D2 27 DAA 

80D3 77 MOV M, A 

FU-1D4 D2D90O JNC NONE 

O0D7 1E10 MVI E, 10H 

0OD9 03 NONE: I NX B 

O0DA 23 I NX H 

0ODB 15 OCR D 

00DC 97 SUB A 

00DD BA CMP D 

CODE C2C70O JNZ LUP2 

00E1 D2E708 JNC EXIT 

80E4 7B MOV A, E 

00E5 86 ADD M 

0OE6 77 MOV i'1, A 

0OE7 C9 EXIT: RET 

80E8 1A MUL: LDAX D 

0OE9 B4 ORA H 

0OEA 6F MOV L, A 

00EB 2650 MVI H, MLTBL 

JOED 7E MOV A, M 

0OEE C9 RET 

0000 END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BB21 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 8080 



(use additional sheets if necessary) 



BINARY MUL/DIV MULTI-PRECISION PACK FOR 8080 
Signed fixed-point binary fraction multiply and divide. Double-precision 
inputs, double-precision output for divide and 4-byte output for 
multiply. 

Time for multiply 1.2845 - 1,5085 milliseconds. 
Time for divide 1.200 - 1.230 milliseconds. 4 



Possibility to load the program into PROM or RAM or to simulate it. 
In the given example a RAW with addresses from 1024 to 2047 is used. 



A test program may be used. 



Multiply: multiplicand in BC, multiplier in DE, multiplicand / -1, 
stack pointer must be initiated. 

Divide: dividend in HL, divisor in DE, /dividend/ less then /divisor/, 
stack pointer must be initiated. 



Product in HLDE. Quotient in BC. Remainder in HL, 



Registers Modified: 

All register and flags 



RAM Required: 

12 bytes (stack +input + result) 



ROM Required: 

120 bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
1 



Programmer: 

The INTELLEC 81 assembler 



Company: 



Lennart Wilholmsson 
SIFU Elteknik Sweden 



Address: 

Box 4012 

S-102 61 Stockholm, SWEDEN 



98-0348 
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■ REF. NO. BB21 
PROGRAM TITLE MUL/DIV MULTI-PRECISION PACK FOR 8080 



IS ION PACK FOR 8080 









MUL. 


'DIV MULTI-PREC 


0500 








ORG 


1280 


0500 


214007 


AMUL : 


LXI 


H, 1856 


0503 


E5 






PUSH 


H 


0504 


3610 






MV I 


M, 16 


0506 


210000 






LXI 


H, O 


0509 


7B 






MOV 


A, E 


050 A 


A7 






ANA 


A 


05 0B 


D21705 


AL 


30 P : 


JNC 


ANEXT 


O50E 


E601 






AN I 


1 


0510 


C22205 






JNZ 


ACOUNT 



jj±s 09 



DAD 



B 



LOOP COUNTER 
LOOP COUNTER 
LOOP COUNTER 
CLEAR RESULT 



ADDRESS IN HL 
ADDRESS TO MEMORV STACK- 
IN MEMORY IS SET TO 16 
IN HL 



LSN OF MULTIPLIER 
CLEAR CARRV 



TO A 



0514 C3 


2205 


JMP 


ACOUNT 


0517 E6 


01 ANEXT : 


AN I 


1 


0519 CA 


2205 


•JZ 


ACOUNT 


05.1C 7D 




MOV 


A, L 


051D 91 




SUB 


c 


051E 6F 




MOV 


L, A 


051F 7C 




MOV 


A, H 


0520 98 




SBB 


B 


0521 67 




MOV 


H, A 


0522 E3 


ACOUNT : 


XTHL 




0523 35 




DCR 


M .; 


0524 E3 




XTHL 




0525 CA2 


:A05 


JZ 


AEND .; 


0528 7C 




MOV 


A, H .; 


"1529 FE:E 


:0 


CPI 


128 .; 


052B 3F 




CMC 




052C IF 




RAR 




052D 67 




MOV 


H, A 


052E 7D 




MOV 


A, L 


'"• r "2F IF 




RAR 




i:0 6F 




MOV 


L, A 


S331 7A 




i'iuv 


A, D 


0532 IF 




RAR 




0533 57 




MOV 


D, A 


0534 7B 




MOV 


A, E 


0535 IF 




RAR 





MASK LSB OF A 

DO NOTHING IF MULTIPLIER DIGIT IS 1 AND 

NEXT HIGHER ORDER DIGIT IS 1 

ADD MULTIPLICAND TO PARITAL PRfiDI \r.J IF 

MULTIPLIER DIGIT IS 1 AND NEXT HIGHER n 

DIGIT IS O 

MASK LSB OF A 

DO NOTHING IF MULTIPLIER DIGIT IS fi AND 

NEXT HIGHER ORDER DIGIT IS 

SUBTRACT MULTIPLICAND FROM PARTIAL PROD 

IF MULTIPLIER DIGIT IS O AND NEXT HIGHE 

DIGIT IS 1 



CHANGE CONTENTS OF HL WITH ADDRESS TO L 

COUNTER IN STACK 

DECREMEET LOOP COUNTER IN MEMORV 

JMP OUT OF LOOP IF LOOP COUNTER IS 8 
ARITHMETIC SHIFT RIGHT OF PARTIAL PRODI I 
AND MULTIPLIER IN HLDE 



5-117 



ISIS SOS© MACRO ASSEMBLER, VI 



PAGE 2 



0536 5?" 




MOV 


E, A 


8577 030B05 




JMP 


ALOOP 


r 53A 3EFE 


AEND : 


MVI 


A, 254 


053C A3 




ANA 


E i 


053D 5F 




MOV 


E, A 


C53E 27 




I NX 


SP .: 


053F 33 




I NX 


SP 


0540 C3 




RET 




0541 014007 


ADIV: 


LXI 


B, 1856 ; 


0544 C5 




PUSH 


B i 


0545 E3 




XTHL 




0546 360F 




MVI 


M, 15 , 


054S E3 




XTHL 




0549 7C 


AAGAIN: 


MOV 


A, H ; 


054A AA 




XRA 


D 


054B 37 




STC 




054C F 25005 




JP 


AALT1 > 


054F 3F 




CMC 




0550 73 


AALT1 : 


MOV 


A, C i 


0551 17 




RAL 




0552 4F 




MOV 


C, A 


0553 78 




MOV 


A, B 


0554 17 




RAL 




0555 47 




MOV 


B, A 


0556 23 




DAD 


H 


©557 23 




DAD 


H i 


0558 F25F05 




JP 


AALT2 


055B 13 




DAD 


D i 


055C C36565 




JMP 


ACONT 


055F 7D 


AALT2 : 


MOV 


A, L .; 


0560 33 




SUB 


E 


9561 6F 




MOV 


L, A 


0562 7C 




MOV 


A, H 


0563 3A 




SBB 


D 


0564 67 




MOV 


H, A 


0565 E3 


ACONT : 


XTHL 




0566 35 




DCR 


M 


0567 E3 




XTHL 




•" J 568 C2.4305 




JNZ 


AAGAIN 


6B 37 




STC 




05 6C 73 




MOV 


A, C 


056D 17 




RAL 




056E 4F 




MOV 


C, A 


056F 78 




MOV 


A, B 


0570 17 




RAL 





i CLEAR LSB OF PRODUCT 

.: MAKE STACK POINTER POINT TO RETURN ADDR 



LOOP COUNTER ADDRESS IN BC 

LOOP COUNTER ADDRESS TO MEMORV STACK 

CHANGE CONTENTS OF HL WITH ADDREbb TO 

LOOP COUNTER IN STACK 

LOOP COUNTER IN MEMORV IS SET TO 15 

MSW OF PARTIAL DIVIDEND i REMAINDER > T 



IF SIGNS OF PARTIAL DIVIDEND AND D I VI SO 
ARE THE SAME, WRITE A 1 INTO THE 
APPROPRIATE QUOTIENT POSITION 
IF SIGNS ARE DIFFERENT, WRITE A 
INTO THE QUOTIENT 



ARITHMETIC SHIFT LEFT OF HL 

IF SIGNS ARE DIFFERENT, ADD DIVISOR TO 
REMAINDER 

IF SIGNS ARE THE SAME, SUBTRACT DIVISOR 
FROM REMAINDER 



CHANGE CONTENTS OF HL WITH ADDREbb TO 

LOOP COUNTER IN STACK 

DECREMENT LOOP COUNTER IN MEMORV 

CONTINUE IN LOOP IF LOOP COUNTER NOT 
ARITHMETIC SHIFT LEFT OF BC GIVES 
THE PSEUDO-QUOT I ENT 
ADD CORRECTION 100O0000000001 TO 
PSEUDO QUOTIENT 
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phue 



8371 47 



8372 


7ES8 


8574 


S6 


8575 


47 


8376 


— — • 


8577 


-•-• 


857:3 


CS 


8888 





MOV 


B, A 


MVI 


A, 1. 


ADD 


B 


MOV 


B, A 


I MX 


SP 


I NX 


SP 


RET 
END 





MAKE STACK POINTER POINT TO RETURN ADDR 
RETURN TO MAIN PROGRAM 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. BB22 



D 4004 D 4040 H 8008 □ 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



DOUBLE PRECISION MULTIPLY - DMPY 

TO MULTIPLY TWO 16-BIT NUMBERS, RETURNING THE MOST-SIGNIFICANT 

16 BITS (IN ADDRESS FORM) THRU THE APPROPRIATE REGISTERS 

TO THE CALLING PROGRAM. 

THE INTRINSIC PL/M MULTIPLY CAPABILITY IS EMPLOYED FOR THE 

BYTE-BY-BYTE MULTIPLICATIONS. 



NONE 



COMPILE WITH PL/M 

CALLING SEQUENCE IS AS FOLLOWS: 

ADDRESS VARIABLE=DMPY(A,HI,LO); 

WHERE 
•ADDRESS VARIABLE 1 IS A VARIABLE WHICH HAS BEEN 
DECLARED AS AN ADDRESS 
A IS ARGUMENT 1, A 16 BIT NUMBER DECLARED 'ADDRESS' 
HI IS THE HIGH-ORDER BYTE OF ARGUMENT 2 
LO IS THE LOW-ORDER BYTE OF ARGUMENT 2 

ARGUMENT 2 IS PASSED BYTE-BY-BYTE TO ALLOW THE ARGUMENT 
TO BE EITHER A CONSTANT SETUP BY A 'DATA 1 STATEMENT 
(WHICH IS ALWAYS TREATED AS A BYTE STRING), OR AN 
ADDRESS VARIABLE. 

THE RESULTS, IN THE FORM OF THE HIGH 16 BITS OF THE 
PRODUCT, ARE RETURNED IN ADDRESS FORM TO THE CALLING 
PROGRAM. 



Registers Modified: 
ALL 



RAM Required: 

10 BYTES 



ROM Required: 

193 BYTES 



Maximum Subroutine Nesting Level: 

2 LEVELS 



Assembler/Compiler Used: 

PL/M 



Programmer: 

WAYNE A. MILLER 



Company: 

CONTEC CONTROLS 



Address: 

1485 DAVIS RD, ELGIN IL 60120 



98-034B 
5-120 



00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

0001b 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

0002b 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

0003b 

00037 

NO PROGRAM 



/*REF. NO. BB22 */ 

/♦PROGRAM TITLE DMPY DOUBLE PRECISION MULTIPLY */ 

DMPY: PROCEDURE(A,HI,LO) ADDRESS; /*DOUBLE PREC. MULTIPLY*/ 
DECLARE (A,RES,P) ADDRESS; /*RTN 2 HI-ORD BYTES OF PRODUCT*/ 
DECLARE (HI,LO)BYTE; 
P=LOW(A)*LO ; /* GET LOWEST 2 BYTES OF PRODUCT*/ 

P=HIGH(P) + HIGH(A)*LO + LOW(A)*HI ; /*=MID 2 BYTES OF PRODUCT */ 
IF CARRY THEN RES=100H; ELSE RES=0; 
IF LOW(P)>7FH THEN RES=RES+1; /*ROUND*/ 
RETURN HIGH(A)*HI +RES+HIGHCP) ; 
END DMPY; 

/* TEST PROGRAM STARTS HERE * * */ 

DECLARE CA,B,X,Y,Z,R,S,T,U) ADDRESS, DB DATA (12136); 

A=49152; /*=.75 AS LEFT JUSTIFIED FRACTION*/ 

Z=DMPY(A,DB,DB(1)); /*Z=9102,I HOPE*/ 
/* TRY WORST CASES-WHERE 3 OR 4 ARG BYTES HAVE MSB SET, */ 
/* WHICH PRODUCES CARRY IN STATEMENT 6 */ 

A=6U83; /* =EEFF HEX */ 

B=b55l8; /* =FFEE HEX */ 

X=DMPY(A,HIGH(B),LOW(B));/*X SHOULD=(61 183*65518 )/2**16 */ 

Y=DMPY(B,HIGH(A),LOW(A));/* =61166 */ 

A=65518; 

R=DMPY( A, HIGH (B),LOW(B));/*R=6551 8**2/2**16 =65500*/ 

A=60928; /*=EE00 HEX */ 

S=DMPY(A,HIGH(B), LOW (B));/*S= (60928*65518 )/2**16 =60911*/ 

B=bll83; /*EEFF HEX */ 

T=DMPY (B, HIGH (A), LOW ( A) );/*T= (611 83*60928) /2**16 =56881*/ 

A=33333; 

U=DMPY(A,HIGH(B),LOW(B));/*U=31118.97=31119 ROUNED*/ 
EOF 
ERRORS 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref No 



BB23 



D 4004 D 4040 D 8008 E 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 



Required 
Software 



Input 
Parameters 



Output 
Results 



16 BIT SQUARE ROOT ROUTINE 

Returns 16 bit square root (8 bit whole number joined with 8 bit 
fraction) of a 16 bit argument. The result conforms to standard 
signed number convention; therefore, its highest order bit will 
always be zero. The argument must have zeros in its two highest 
order bits, for its square root to lie in the valid range of the 
signed result. 

An optional shortened version of the subroutine returns the result 
in two's complement form. 



none 



none 



16 bit argument in HL 



16 bit result in HL 

(Option 2: 16 bit two's complemented result in BC) 



Registers Modified: 

A B C D E H L 


Assembler/Compiler Used: 

8080 Macro, version 2.3 


RAM Required: 

2 words (one level of stack) 


Programmer: 

R. E. DuPuy 


ROM Required: 

55 words 


Company: 

Tektronix 


Maximum Subroutine Nesting Level: 



Address: 

Beaverton, Or. 97005 (MS 58-736) 



98-034B 
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REF. NO. BB23 

PROGRAM TITLE 16 BIT SQUARE ROOT ROUTINE 



8080 SQUARE ROOT ROUTINE 

16 BIT ARGUMENT, 16 BIT RESULT 

ENTER WITH ARGUMENT IN HL 

RESULT RETURNED IN HL, OR < OPT I ON 2, SEE BELOW > IN 
TWO'S COMPLEMENT FORM IN BC 



0000 110000 

0003 OlFFFF 
0006 3E10 
8 F5 



SQRT 



es EB 
.-•d'OA 7C 
000B 65 
000C 6A 
000D 29 
000E 17 
000F 29 

0010 17 

0011 EB 

0012 29 

0013 29 

0014 5A 

0015 57 

0016 Fl 

0017 E5 

0018 60 

0019 69 
001A 29 
001B 2C 
001C 44 
001D 4D 
0O1E 29 
001F 2C 

0020 19 



0021 D22600 
0024 0D 



LOOP 



lxi 


D, 0000H .; 


lxi 


B, OFFFFH.; 


MVI 


A, 10H .; 


PUSH 


PSW 


XCHG 




MOV 


A, H 


MOV 


H, L 


MOV 


L, D 


DAD 


H .; 


RAL 


_; 


DAD 


H ; 


RAL 




XCHG 




DAD 


H 


DAD 


H 


MOV 


E, D 


MOV 


D, A 


POP 


PSW .; 


PUSH 


H .; 


MOV 


H, B .; 


MOV 


L, C .; 


DAD 


H 


INR 


L 


MOV 


B, H .; 


MOV 


C, L 


DAD 


H .; 


INR 


L 


DAD 


D .; 


JNC 


NOGO .; 


DCR 


C .; 



INITIALIZE EXTENDED ARGUMENT; 
COMPLEMENTED RESULT, AND 
LOOP COUNT. 
SAVE LOOP COUNT. 



DOUBLE LEFT SHIFT OF 
REGISTER STRING DEHL 
■:: CONTAINING CURRENT REMAINDER). 



RETRIEVE LOOP COUNT. 

SAVE LOW ORDER 16. 

MOVE PARTIAL RESULT 

TO HL. 

SHIFT LEFT, SHIFTING IN A ONE. 

SAVE SHIFTED PARTIAL RESULT. 

SHIFT COPV OF PARTIAL RESULT AGAIN. 

SUBTRACT SHIFTED PARTIAL RESULT 

FROM HIGH 16 OF CURRENT REMAINDER 

<BV ADDING COMPLEMENT >. 

TEST SUBTRACTION RESULT. 

TACK A ZERO ONTO COMPLEMENTED 
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0025 


EB 


0026 


3D 


0027 


CA2FO0 


00 2 A 


El 


002B 


F5 


00 20 


038300 


O02F 


El 


0030 


i"" o 


0031 


2F 


O032 


67 


0033 


79 


0O34 


2F 


0O3-5 


6F 


0036 


09 



N0G0 



DONE 



XOHG 




DOR 


A ; 


JZ 


DONE 


FOP. 


H 


PUSH 


PSW .; 


JMP 


LOOP 


POP 


H i 


MOV 


A, B 


CMA 




MOV 


H, A 


MOV 


A, C 


CMA 




MOV 


L, A 


RET 





PARTIAL RESULT. 

REPLACE HIGH ORDER 16 OF CURRENT 
REMAINDER. WITH SUBTRACTION RESULT. 
DECREMENT AND TEST LOOP COUNT. 



.; SAVE LOOP COUNT. 

; REMOVE UNUSED DATA FROM STACK. 

COMPLEMENT RESULT *ND STORE IN HL. 

**OPTIQN 2: 

TO RETURN RESULT IN TWO'b 

COMPLEMENT FROM IN BC 

SUBSTITUTE THE FOLLOWING: 

DONE: POP H 

I NX B 
RET 



HI- 1 



END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. BC10 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 □ 4040 □ 8008 8080 



(use additional sheets if necessary) 



Floating Point Square Root 

Section 5: Math and Numerical Manipulation Programs 

Operations performed are: 

1) Test for negative argument (overflow set and return) 

2) Computation of the square root for positive 
arguments. 



None 



Floating Point Math Package -. BCJ 

The floating point accumulator contains the operand 

x In floating point format. (See floating point math package 

documentation for further details) 



The floating point accumulator contains the value of 
the square root of x In floating point format. 



Registers Modified: 



All TPg-fafAra affp^t-orl 



RAM Required 
13 bytes 



ROM Required: 
108 bytes 



Maximum Subroutine Nesting Level: 
4 



Assembler/Compiler Used: 
Intel lee R Macro Asfiemhlgr 



Programmer: 
Bob Elchenlaub 



Company: 
John Fluke Mfg. Co., Inc. 



Address: 



P.O. Box 43210 

Mountlake Terrace, Wa 98043 
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FLUKE ENGINEERING 01-SEP-75 05:40 PM 

FLOATING POINT SQUARE ROOT 

A FLOATING POINT NUMBER CAN ALWAYS BE WRITTEN IN THE FORM 

X = M * 2**2K IF THE EXPONENT IS EVEN OR 
M * 2 *2**2K IF THE EXPONENT IS ODD 

WHERE 0.5 < ABS(M) < 1.0 AND K = Q,+1 ,-1 ,+2,-2, 

THUS THE SQUARE ROOT OF X IS GIVEN BY 
(1) SQRT(X) = SQRT(M) * 2**K FOR EVEN EXPONENT OR 

= SQRT(M) * SQRT(2) * 2**K FOR ODD EXPONENT 

TO CALCULATE THE SQUARE ROOT, HERON'S ITERATIVE PROCESS IS iiSFn 

^ s cl^^ l ^ M ? T ^l7^ , A L L CS? ox,,WT,ON - '««^^ E ?g ^?S?- 

Y(l + 1) = (Yd) + M/Y(l))/2 , 1=0,1,2, 

UNTIL Y(N) IS SUCH THAT THE DISCREPANCY IS INVISIBLE TO THE 
MACHINE I.E. mt 

ABS(Y(N) - SQRT(M)) < EPS I LON 

* 7 /m*^ FL ? AT,NG P0INT PACKAGE, EPS I LON = 2**-24 OR ABOUT 

6.2 * 10**-7 , SINCE THE RESOLUTION OF THE FLOATING POINT 

MANTISSA IS 24 BITS OF SIGNIFICANCE (I.E. 7.2 DIGITS OF SIGNIFICANCE) 

HERON'S PROCESS IS DERIVED AS A SPECIAL CASE OF NEWTON'S 
METHOD AS APPLIED TO THE EQUATION 

Y = SQRT(X) 

THE INITIAL APPROXIMATION YO IS COMPUTED AS 

YO = 0.41730759 + 0.59016206 * M ON THE INTERVAL £ 0.5,1.0 J 

^PTflTnll E ^ T l° HS ARE ™ EN RE0UIRED TO OBTAIN SQRT(M). THEN 
SQRT(X) CAN BE COMPUTED FROM EQUATION (1). 

a tvd!o E , R ^1 NE TAKES APPROXIMATELY 15 MILLISECONDS TO COMPUTE 
A TYPICAL SQUARE ROOT (I.E. TWO DIVIDES, ONE OR TWO MULTIPLIES 

SYSTEM^' AN ° ° THER ASS ° RTED ORATIONS) ON AN INTELLEC 8 / MOD 80 
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PRGE 1 



REF. NO. BC10 

PROGRAM TITLE FLOATING POINT bQUARE ROOT 

SQUARE ROOT SUBROUTINE 

8/30/75 

BOB EICHENLAUB 

////////////////////••'^/////////////•••''••••'/// 

EQUATE TABLES FOR THE FLOATING POINT PACKAGE 
<SEE INTEL USER LIBRARY DOCUMENTATION) 



.; FLOATING POINT RAM PAGE 
; FLOATING POINT CODE PAGE 



0B00 


FR 


EQU 


0B00H 


03: 0© 


FS 


EQU 


0300H 


0B2E 


OVER 


EQU 


FR+02EH 


■:30 


ACCE 


EQU 


FR+030H 


038C 


FMUL 


EQU 


FS+08CH 


0359 


FTEST 


EQU 


FS+059H 


03D7 


FADD 


EQU 


FS+0D7H 


03D4 


FSUB 


EQU 


FS+0D4H 


034D 


FCHS 


EQU 


FS+04DH 


036E 


FLOD 


EQU 


FS+06EH 


03B4 


FDIV 


EQU 


FS+0B4H 


033E 


FSTR 


EQU 


FS+03EH 


032F 


FINIT 


EQU 


FS+02FH 


03CA 


FOVER 


EQU 


FS+OCAH 



MAINLINE TEST LOOP 



1400 



ORG 



1400H 







MAINLINE: 




1400 


31O02F 


LXI 


SP, 2F00H 


1403 


CD2F03 


CALL 


FINIT 


1406 


210920 


LXI 


H, ARG 


1409 


CD6E03 


CALL 


FLOD 


J 40C 


CD1614 


CALL 


FSQRT 


I0F 


210021 


LXI 


H, RESULT 


1412 


CD3E03 


CALL 


FSTR 


1415 


C7 


RST 






SET STACK POINTER 

FLOATING POINT INITIALIZATION 

LOAD ARGUMENT FOR SQRT 

STORE SQRT IN RESULT 
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bQUARE ROOT SUBROUTINE 

ON ENTRV : F. P. ACCUMULATOR HAS SQRT ARGUMENT 
ON EXIT: F. P. ACCUMULATOR HAS THE SQUARE ROOT 
ALL REGISTERS ARE AFFECTED 



FSQRT 



1416 CD5903 

1419 C8 
141A FACA03 
141D 320020 

1420 3E80 
1422 323O0B 
1425 210120 
1428 CD3E03 



142B 217714 
142E CD8C03 
1431 217B14 
1434 CDD703 
1437 210520 
143A CD3E03 



143D CD5F14 
1440 210520 
1443 CD3E03 
1446 CD5F14 



CALL FTEST 

RZ 

JM FOVER 

STA TEXP 

MVI A, 80H 

bTA ACCE 

LXI H, TMANTISSA 

CALL FSTR 



TEbT SIGN OF ARGUMENT 
RETURN IF ARG. = 
RETURN ERROR IF ARG. 
STORE EXPONENT 

STORE IN EXPONENT 

STORE IN TMANTISSA 







I N I T I AL APPROX I MAT I ON : 

TMP1 : = 0. 41730759 + 0. 59016206+M 



LXI 

CALL 

LXI 

CALL 

LXI 

CALL 



H, IAMULT 

FMUL 

H, IAADD 

FADD 

H, TMP1 

FSTR 



; STORE IN TMP1 



NEWTON'S METHOD OF ITERATION TO 
THE APPROXIMATE VALUE 
OF THE SQRT OF M 



CALL 


FSQ1 


LXI 


H, TMP1 


CALL 


FSTR 


CALL 


FSQ1 



; FIRST ITERATION 
; STORE RESULT 
; IN TMP1 
; SECOND ITERATION 



REbTGRE RANGE TO OBTAIN THE FINAL RESULT 



1449 _£A0020 
144C D680 

J 44E IF 
44F F5 

1450 C680 
1452 323O0B 



LDA 


TEXP 


SUI 


80H 


RAR 




PUSH 


PSN 


AD I 


80H 


STA 


ACCE 



;UNBIflS THE EXPONENT 
.; DIVIDE EXPONENT BV 2 <SQRT FNO 
.; bAVE CARRV BIT <ODD OR EVEN} 
.; RESTORE BIAS TO EXPONENT 
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PAGE 



1455 Fl 

1456 D25903 
1459 217F14 
145C C38C03 



145F 210120 
1462 CD6E03: 
1465 210520 
1468 CDB403: 
146B 210520 
146E CDD703 
1471 D601 
1473 323:008 
'■?€. C9 



FSQ1 



2000 
2000 

2001 
2005 
2009 



TEXP: 



POP 


PSW 


JNC 


FTEST 


LXI 


H, SQRT 


JMP 


FMUL 



.; RESTORE CARRV 

; ..TUMP IF EXPONENT WAb EVEN 

;*SQRT<2> IF EXPONENT WAS ODD 



SUBROUTINE FSQ1 

THIS ROUTINE PERFORMS ONE NEWTON ITERATION 
TO THE SQUARE ROOT FUNCTION 



LOAD THE MANTIbbA 

INTO F. P. ACC. 
FORM M/TMP1 



FORM TMP1 + M/TMP1 
DIVIDE BV 2 AND 

STORE IN EXPONENT 
RETURN TO MAIN SQRT ROUTINE 



END OF SQUARE ROOT ALGORITHM 



LXI 


H, TMANTISSA 


CALL 


FLOD 


LXI 


H, TMP1 


CALL 


FDIV 


LXI 


H, TMP1 


CALL 


FADD 


SUI 


1 


STA 


ACCE 


RET 





CONSTANTS NEEDED BV FbQRT 



14 77 801714EB IAMULT: 
147B 7F55A956 IAADD: 
147F 813504F3: SQRT2 : 



DB 
DB 
DB 



SCRATCH STORAGE 

ORG 2000H 
DS 



O80H, 017H, 014H, OEBH 
07FH, 055H, 0A9H, 656H 
081H, 035H, O04H, 0F3H 



TMANTISSA 
TMP1 : 
ARG : 



DS 
DS 
DS 



O. 59016206 

0. 41730759 

1. 41421356 



2100 
2100 



ORG 



RESULT : 



2100H 
DS 



0000 



END OF SQUARE ROOT FUNCTION PACKAGE 
END 
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jnf | 9 LIBRARY SUBMITTAL FORM Ref . no. _em 



D 4004 D 4040 C 8008 H 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



SQKTF 

GENERATES 8 BIT ROOT OF 16 BIT NUMBER 



16 BIT NUMBER, MS BYTE IN B REGISTER, LS BYTE 
IN C REGISTER PRIOR TO CALLING SQRTF SUBROUTINE. 



8 BIT ROOT WRITTEN INTO A MEMORY LOCATION 



Registers Modified: 

A,B,C,D,E,H,L 


Assembler/Compiler Used: 

INTELLEC 8/M0D80 MACRO 


RAM Required: 

1 BYTE 


Programmer: 

DENNIS GREEN 


ROM Required: 

66D BYTES 


Company: 

RAYTHEON 


Maximum Subroutine Nesting Level: 

NOT APPLICABLE 


Address: % „ 

MS: S3-52 

HAKIWELL ROAD, BEDFORD 01730 
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i REF. NO. BB24 

; PROGRAM TITLE SQRTF 



8340 



0421 
8348 AF 

8341 67 

8342 57 

8343 322184 

8346 6F 

8347 2C 

8348 2C 
8343 C612 

~4B 5F 
u_>4C 79 
834D ID 
834E CA8283 

8351 17 

8352 4F 

8353 78 

8354 17 

8355 47 

8356 7C 

8357 17 

8358 67 

8359 2D 
835A C24C83 

835D 2C 
835E 2C 
835F 14 

8368 DA6783 

8363 92 

8364 C36A83 
8367 14 

14 



ROOT 
SQRTF 



G» 



© 



SQRT1 



69 
836A 



oc 



MINH: 



SQRT2 



836B 3A2184 



ORG 



EQU 

XRfl 

MOV 

MOV 

STA 

MOV 

INR 

INR 

AD I 

MOV 

MOV 

DCR 

JZ 

RAL 

MOV 
MOV 
RAL 

MOV 
MOV 
RAL 
MOV 
DCR 
JNZ 

INR 
INR 
INR 

JC 

SUB 
JMP 
INR 
INR 
ADD 
MOV 
LDA 



0348H 



0421H 
A 
H, A 

D, A 
ROOT 
L, A 
L 

L 
12H 

E, A 
A, C 
E 
ENDRT 



C, A 
A, B 



B, A 
A, H 

H, A 

L 

SQRT1 

L 
L 
D 

MINH 

D 

SQRT2 

D 

D 

D 

H, A 

ROOT 



;B IS MSBVTE. 
; C IS LSBVTE. 

; CLR A & CARRY 



i SET 

;L 

.: TO 2. 

> SET COUNTER. 



i SETS FLAGS XEPT CARRY. 
■EXIT LOOP AT 9TH PASS. 

GET MSB OF LSBVTE IN 
i CARRY. 

SAVE REMAINIG LSBYTE. 

GET MSBVTE. 

GET MSB IN CARRY 

& LSBYTE -S MSB TOA. 

SAVE SHIFTED MSBYTE. 

MSB OF B TO CARRY & 
TO H, RIGHT JUSTIFIED. 

REPEAT TIL 2 BITS 

ARE IN H. 

RESET L 

TO 2. 

GET AN INR IN 

BEFORE TEST. 

IF PLUS REMAINDER. 



.; IF PLUS REMAINDER. 
.; FLAGS STILL SET 
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036E FA7703 

0371 B7 

0372 17 

0374 C37903 

0377 B7 

0378 17 

0379 322104 
037C 17 
037D 17 
037E 57 
037F C34C03 
0382 C9 

0000 



MINH1 



SQRT3 : 



ENDRT 



JM 
ORA 
RAL 
INR 

JMP 
ORA 
RAL 

STA 
RAL 
RAL 
MOV 
JMP 
RET 
END 



MINH1 
A 

A 

SQRT3 
A 



ROOT 



D, A 
SQRT1 



BV SUB OR ADD. 
CLR CARRV. 

ROOT CHARACTER 

IS 1. 

CLR CARRV 
ROOT CHARACTER 
IS 0. 

MAKE ROOM IN D 
FOR THE NEXT 2 BIT 
.; BVTE FROM ALGORITHM. 
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MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM Ref *>. sea 



D 4004 D 4040 Q 8008 □ 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



FLOATING POINT SQRT SUBROUTINE 



This Subroutine takes the square root of a number In floating point 
notation. 



Required 
Software 



Input 
Parameters 



Output 
Results 



tntel f s floating point package, BC1, assembled at 800 HEX wfth. the 
scratchpad at 1000 HEX 



Location "VARI" must be the input argument in floating point notation, 



Location "XP" becomes the square root of whatever was in "VARI", 



Registers Modified: 


Assembler/Compiler Used: 
8008 Assembler 2.0 


RAM Required: 


Programmer: 
Jack G. Ganssle 


ROM Required: 


Company: 
Neotec Corporation 


Maximum Subroutine Nesting Level: 


Address: 

2431 Linden Lane 

Silver Spring r Mn. ?nQin 
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i REF. NO. BC11 

; PROGRAM TITLE SUBROUTINE SQRT 



GQA 41A 

SUBROUTINE SQRT 
DESCRIPTION: 

THIS SUBROUTINE TAKES THE SQUARE ROOT 
OF A NUMBER BV USING THE FOLLOWING RECURSION 
FORMULA : 

X<2>=. 5<X<1>+N/X<1>> 

X<3>=. 5<X<2>+N/X<2>> 

ECT. XU> APPROACHES THE SQUARE ROOT 

AS I BECOMES LARGER. N IS THE INPUT NUMBER/ 

INPUT PARAMETERS: 

THIS ROUTINE MUST BE ENTERED WITH THE NUMBER 
N IN LOCATION VARI. 

OUTPUT PARAMETERS: 

UPON EXIT, XP= THE SQUARE ROOT OF 
VARI. 



• CODED JUNE 12, 1975 (FSIDAV THE 13TH) VFNED 

2628 BEGIN EQU 2620H 

\*J<?- VftRI EQU 1479H ; INPUT AND .OUTPUT BUFFER 

14Ry C TR EQU 14A8H .; COUNTER BUF 

14Ry XP EQU CTR+1 } GUESS BUFFER 

0S6E LOD EQU 86EH 

0884 DIV EQU 8B4H 

08D? AD EQU 8D7H 

0848 STR EQU 0B4BH 

0009 XPL EQU XP AND 0FFH 

0008 CTRL EQU CTR AND 0FFH 

0079 VARIL EQU VARI AND 0FFH 

2620 ORG BEGIN 

•^20 21A814 LXI H, CTR 

.21: 360B MVI M, 11 ;# REPEATS=11 

2625 2C i N R L 

2626 2681 MVI M, 81H ; INITIAL QUESS= ABOUT 1 
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2628 2C INR L 

2629 3606 MVI M, ; THATb A +1, BOVb 
262B 2E79 ITER: MVI L, VARIL ; FIGGER <N/X+X>. 5 
262D CD6E08 CALL LGD ; ACC=N 

263:0 21A914 LXI H, XP 

2633 CDB49S CALL DIV * ACC=N/X 

2626 21A914 LXI H, XP 

263:9 CDD708 CALL AD i ACC=N/X+X 

263:C 21A914 LXI H, XP 

263:F CD4B0B CALL STR i SAVE NEW GUESS 

2642 2EA9 MVI L, XPL 

2644 46 MOV B, M 

2*4!=; 0F, DCR B .;DIVV BV 2 

2646 70 MOV M, B .-NEW GUESS- 5<N/X+X> 

2647 2D DCR L 

2648 46 MOV B, M 

2649 05 DCR B > DEC <ll-# ITERATIONS) 
264A C8 RZ 

264B 70 MOV M, B 

264C C32B26 JMP ITER 

0000 END 
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\ft\J[ LIBRARY SUBMITTAL FORM **•«>• 



BC12 



D 4004 D 4040 D 8008 H 8080 



tuse additional „.ieets it necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



FLOATING POINT SQUARE ROOT ROUTINE - FAST 

Calculate square root of a floating point number by Heron's method. 
Execution time £ 50 ms for any number. 



None. 



Intel Floating Point Math Package - BCJ 

Floating Point Format Conversion - BC2 



Assumes number in floating point accumulator. 



Returns square root in floating point accumulator. 



registers Modified: 
All 



RAM Required: 
16 Bytes 



ROM Required: 
161 Bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
Intel lee 8/M0D 80 Ver 3.0 



Programmer: 
W. Moritz/L. Mace 



Company: 



Center for Bioengineering 



Address: 



"• of Wash., Seattle. WA. 98l?5 
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', REF. NO. BC12 
PROGRAM TITLE FAST FLOATING POINT SQUARE ROOT ROUTINE 



s**********************:************^ 



SQUARE ROOT SUBROUTINE SQRT 

PERFORMS SQUARE ROOT OF A FLOATING POINT 

NUMBER ASSUMES NUMBER IS IN FLOATING 

POINT ACCUMULATOR. THE SQUARE ROOT 

IS RETURNED IN THE FLOATING POINT 

ACCUMULATOR. THIS ROUTINE REQUIRES 

THE AVAILABILITY OF INTEL'S 

FLOATING POINT PACKAGE AND 

CALLS SUBROUTINES FROM THAT PACKAGE. THE 

FLOATING POINT ACCUMULATOR IS LOCATED AT 

LOCATIONS OB30H TO 0B24H. 



UNIVERSITY OF WASHINGTON 
CENTER FOR BIOENGINERRING 
N. MORITZ AND L. MACE MAV 15. 



1975 



; +*.++.++*++*H<*:!+:+++^^ 





; SUBROUTINES 


USED 




03D7 


AD 


EQU 


02D7H 


FL. PT. 
ENTRY 


03D4 


SB 


EQU 


03D4H 


FL. PT. 
ENTRY 


038C 


MUL 


EQU 


038CH 


FL. PT. 
ENTRY 


03B4 


DIV 


EQU 


03B4H 

* 


FL. PT. 
ENTRY 


036E 


LOD 


EQU 


036EH 


FL. PT. 


0259 


TST 


EQU 


0359H 


FL. PT. 


033E 


STR 


EQU 


033EH 


FL. PT. 


0346 


ZRO 


EQU 


0346H 


FL. PT. 



ADD SUBROUTINE 

POINT 

SUBTRACT SUBROUTINE 

POINT 

MULTIPLY SUBROUTINE 

POINT 

DIVIDE SUBROUTINE 

POINT 

LOAD ENTRY POINT 

TEST ENTRY POINT 

STORE ENTRY POINT 

ZERO ENTRY POINT 



; SCRATCHPAD ALLOCATIONS 



0B4O 
0B44 



SCR1 
SCR2 



EQU 
EQU 



OB40H 
0B44H 
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8B4 S 
8B4C 



n :=:!"!!•■! 



;CR3 
".CR4 



EQU 
EQU 



©888 CD5983 
8883'- 21.488B 
8886 CD3E83 



8889 21488B 
888C CDD783 
888F DA9688 
8812 CA9688 
8815 FA9688 



t,*18 21488B 
881B CD6E83 
881E 214C8B 

8821 77 

8822 3E88 
8824 21488B 
8827 CD3E83 
882 A 214 4 8B 
882D CD3E83 
8838 21.488B 
8823: CD3E83 



8836 21488B 
8839 CD6E83'- 
883C 21448B 
883F CD3E83 
8842 21488B 
8845 CD6E83 
8848 21448B 
884B CDB483 
884E 21448B 
f"--51 CDD783 
J4 21448B 
8857 CDG4Q3 
885 A 21488B 



SORT ROUTINE 

ORG 



8B48H 
QB4CH 

HERON'S METHOD 

8888H 



LOAD flCC AND SCRATCH WITH NUMBER 



SORT 



CALL 

LXI 

CALL 



TST 

H, SCR1 

STR 



TEST FOR ILLEGAL ENTRY 



LXI 

CALL 

JC 

•JZ 

,TM 



H, SCR1 

AD 

OFOUT 

OFOUT 

OFOUT 



.! STORE ORIGINAL EXPONENTT 
LXI H, SCR1 



CALL 

LXI 

MOV 

MVI 

LXI 

CALL 

LXI 

CALL 

LXI 

CALL 



LOD 

H, SCR4 

M, A 

A, 88H 

H, SCR1 

STR 

H, SCR2 

STR 

H, SCR 3 

STR 



LOAD FLT PT ACC 
STORE ORIGINAL NUMBER 



SET CONTROL BITS 
OUT IF OVERFLOW 
OUT IF ZERO 
OUT IF NEGATIVE 

; REPLACE WITH ZERO 

LOAD EXP INTO REG A 

STORE EXP IN SCR4 
ZERO OUT EXPONENT 

STORE NEW NUMBER 

STORAGE FOR LAST GUESS 

STORAGE FOR NEW GUESS 



FIND SORT OF MANTISSA 
BEGIN ITERATION 



LOOP 



LXI 

CALL 

LXI 

CALL 

LXI 

CALL 

LXI 

CALL 

LXI 

CALL 

LXI 

CALL 

LXI 



H, SCR3 

LOD 

H, SCR2 

STR 

H, SCR1 

LOD 

H, SCR2 

DIV 

H, SCR2 

AD 

H, SCR2 

DIV 

K. SCR3 



.; PUT NEW GUESS IN 

.; OLD GUESS SLOT 

.; START INTERATION LOAD NUMBER 
.; DIVIDE BV LAST GUESS 
.; ADD LAST GUESS 
i DIVIDE BV 2 
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085D CD3E03: 
0860 21440B 
0863: CDD403 
0866 CA6C08 
0869 C 3 2608 



CALL 


STR 


LXI 


H, SCR2 


CALL 


SB 


JZ 


SROUT 


JMP 


LOOP 



STORE NEW GUESS 

SUBTRACT LAST FROM NEW GUESi 
FINISHED IF FINAL ITERATION 
-TUMP TO NEXT ITERATION 



FIND SORT OF EXPONENT 
PREPARE FLT FT ACC FOR RETURN 



086C AF SROUT 
086D 214C0B 
0870 ?E 
©871 E601 
0873: CA8A08 

0876 7E ODD : 

0877 DEOl 

0879 IF 
087 A C640 
087C 21480B 
087F 77 

0880 CD6E03: 
|"y:3: 219A08 
\.-*586 CD8C03: 
0889 C9 

088A 7E EVEN: 
088B IF 
088C C640 
088E 21480B 

0891 77 

0892 CD6E03: 

0895 C9 

0896 CD4603: OFOUT : 
0899 C9 

089A 813:504F3: SQRT2 : 
089E 82000900 TWO : 

0000 



XRA 

LXI 

MOV 

AN I 

JZ 

MOV 

SB I 

RAR 

AD I 

LXI 

MOV 

CALL 

LXI 

CALL 

RET 

MOV 

RAR 

AD I 

LXI 

MOV 

CALL 

RET 

CALL 

RET 

DB 

DB 

END 



A 

H, SCR4 

A, M 

01H 

EVEN 

A, M 

01H 

40H 

H, SCR3 

M, A 

LOD 

H, SQRT2 

MUL 

A, M 

40H 

H, SCR3: 
M, A 
LOD 

ZRO 

81H, 35H, 
82H, ©OH, 



: RESET CARRV 

.; LOAD ORIGINAL EXP INTO A 
.; CHECK EVEN/ODD EXP 



MAKE EXP EVEN 
DIVIDE BV TWO 
ADJUST BIAS 

.; STORE NEW EXPONENT 

ADDR, OF SQRT2 CONST. 
SQRT2+SQRTX 
RETURN TO CALLER 

.; DIVIDE BV TWO 
.; ADJUST BIAS 

.; STORE NEW EXPONENT 

.; RETURN TO CALLER 

.; ZERO OUT ACC FOR RETURN 

04H, 0F3:H 

00H, 00H 
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MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM **■ *>. bb 25 



D 4004 D 4040 □ 8008 H 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



NATURAL LOGARITHM 

Computes the natural logarithm of a number between 1 and 65535 



Basic 8080 System 



70 Instructions 

(+12 instructions for MULTIplication Subroutine) 



Number to be converted in H and L 



Mantissa of LN Z in A 

Characteristic of LNZ in H and L, expressed in 1/65536 

(Fixed point with format (A). (H) (L) 



Registers Modified: 
_PSW, H, L 



RAM Required: 
4 Bytes 



ROM Required: 

128 Bytes for LN 
?n nyf o«f f nr Miff, 






Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
1 



Programmer: 



MAC 80 



Company: _ __ 

' B, Hauert 

Battelle Institute 



Address 



7 Route de Drize 

1277 Carouge 

ueneva, SWITZERLAND 
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intel 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. BC13 



D 4004 D 4040 Q 8008 □ 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



FLOATING POINT LOG SUBROUTINE - COMMON LOGARITHMS 



This subroutine takes the log to any integer base of any 

positive floating point number. 



Intel's floating point package- BC1 

(Note: In the supplied listing, the 

package was assembled at 800 HEX. 

The RAM scratchpad starts at 1000 HEX.) 

Location "LOG" is the input argument in floating point notation. 

Location "BASE" is the natural log of the base in floating point 
notation. 



Location "ANS" becomes the result in floating point notation. 



Registers Modified: 
All 


Assembler/Compiler Used: 
8008 Assembler 2.0 


RAM Required: 


Programmer: 
Jack G. Ganssle 


ROM Required: 


Company: 

Neotec Corporation 


Maximum Subroutine Nesting Level: 


Address: 

2*f31 Linden Lane 

Silver SDrina. MD. 20910 



98-034B 
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REF, NO. BC13 

PROGRAM TITLE SUBROUTINE LOG 



SUBROUTINE LOG 

DESCRIPTION: 

THIS SUBROUTINE CALCULATES THE 
LOG TO ANV BASE OF A FLOATING 
POINT NUMBER IN MEMORY USING 
THE FOLLOWING FORMULAE: 

LOG<BASE BXX>=LN<X>/LN<B> 

LN<X>=<LN<M>*+N*<. 6931472> ] 

WHERE X=M*2**N 
AND 1<M<2 
SO 2**N<X<2**<N+1> 

AND 
LN < M > =2*Z < 1+ < Z**2/3 > * < l+15*Z**2/23 > 

WHERE Z=<M-1>/<M+1> 

UPON ENTRV TO THIS ROUTINE, 
THE LOCATION SPECIFIED BV 'LOG' 
MUST CONTAIN X, THE NUMBER TO 
BE LOGIFIED. NO<BASE B> <X> 
WILL APPEAR IN LOCATION 'ANS'. 

THE BASE IS DETERMINED BV SETTING ADDRESS 
'BASE' EQUAL TO THE FLOATING 
POINT VALUE OF LN<BASE>. THUS, FOR 
COMMON LOGS BASE WOULD EQUAL THE 
FLOAT I OG POINT REPRESENTATION 
OF 2. 202585093. 

CODE MAV 5, 1975 VFNED 



0100 


BEGIN 


EQU 


100H 




1 8C 


AD 


EQU 


8D7H 


; FP ADD 


MUL 


EQU 


88CH 


> FP MULTIPLY 


083E 


STR 


EQU 


83EH 


; STORE FP ACCUM 


086E 


LOD 


EQU 


86EH 


> FP LOAD 
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08B4 

0B00 

08D4 

1100 

1150 

1134 

0100 



DIV 


EQU 


8B4H 


j 


FLT 


EQU 


0B00H 


i 


SB 


EQU 


8D4H 


'? 


BUF 


EQU 


1100H 


r 


LOG 


EQU 


1150H 


> 


AN3 


EQU 


1154H 


> 




ORG 


BEGIN 





FP DIVIDE 
FP FLOAT 
FP SUBTRACT 
BUFFER AREA 
LOCATION OF 
LOCATION OF 



ARGUMENT 

ANSWER 



CALCULATE N SUCH THAT 2 
THEN FIGGER M, M=X/2*+N. 



;:+:*N<=X<=2++ < N+l > 



0100 


215011 


0103 


7E 


0104 


D671 


0106 


5F 


0107 


AF 


0108 


4F 


0109 


•="."7 


01OA 


0601 


010C 


CD000B 


010F 


210011 


L«±15 


CD3E08 


215011 


0118 


CD6E08 


011B 


210011 


011E 


CDB408 


0121 


21A801 


0124 


CDD708 


0127 


210011 


012A 


CD3E08 


012D 


21AC01 


0130 


CDD408 


0133 


210O11 


0136 


CDB408 


0139 


210011 


013C 


CD3E08 


013F 


CD8C08 


0142 


2E00 


0144 


210411 


0147 


CD3E08 


014A 


21B401 


014D 


CD8C08 


0150 


21B801 


0153 


CDB408 


0156 


21A801 


0159 


CDD708 


P45C 
'.. J5F 


210411 


CD8C08 


0162 


21B001 


0165 


CDB408 



LXI 


H, LOG 




MOV 


A, M .; 


A= X EXPONENT 


SUI 


71H ; 


MAKE 2**N BINARY POINT 


MOV 


E, A .; 


E=BINARV POINT 


XRA 


A 




MOV 


C, A 




MOV 


D, A 




MVI 


B, 1 ; 


ABCD=UN.JUST I F I ED 1 


CALL 


FLT i 


ACCUM=2**N 


LXI 


H, BUF 




CALL 


STR ; 


SAVE 2**N 


LXI 


H, LOG 




CALL 


LOD ; 


ACCUM=X 


LXI 


H, BUF 




CALL 


DIV J 


ACCUM=X/2=+ :: + : N=M 


LXI 


H, FP1 




CALL 


AD ; 


ACCUM=M+1 


LXI 


H, BUF 




CALL 


STR ; 


SAVE M+l 


LXI 


H, FP2 




CALL 


SB ; 


ACCUM=M-1 


LXI 


H, BUF 




CALL 


DIV ; 


ACCUM=Z= < M-l > /M+l > 


LXI 


H, BUF 




CALL 


STR .: 


SAVE Z 


CALL 


MUL > 


ACCUM=Z**2 


MVI 


L, BUF AND 


OFFH 


LXI 


H, BUF+4 




CALL 


STR. .; 


SAVE Z++2 


LXI 


H, FP15 




CALL 


MUL > 


<Z**2>/15 


LXI 


H, FP23 




CALL 


DIV .; 


<15 : + : Z : + : +2>/23 


LXI 


H, FP1 




CALL 


AD ; 


l+15=+=Z : + :: + : 2/23 


LXI 


H, BUF+4 




CALL 


MUL • 


•:: l+15+Z : + :: + : l/3 > +Z++2 


LXI 


H, FP3 




CALL 


DIV ; 


T= <: l+15 : + : Z : + :: + : 2/3 > -+:Z+ : + : 2/3 
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0168 


21A801 




LXI 


H, FP1 








016B 


CDD708 




CALL 


AD 


j 


1+T 




016E 


210011 




LXI 


H, BUF 








0171 


CD8C08 




CALL 


MUL 


; 


<1+T>+Z 




0174 


21AC01 




LXI 


H, FP2 








0177 


CD8C08 




CALL 


MUL 


j 


<1+t::'+Z+2=LN'::m::' 




017R 


210011 




LXI 


H, BUF 








0170 


CD3E08 




CALL 


STR 








0180 


215011 




LXI 


H, LOG 








0183 


7E 




MOV 


A, M 


.■ 


A=X EXPONENT 




0184 


D681 




SUI 


81H 


j 


A=N 




0186 


57 




MOV 


D, A 








0187 


AF 




XRA 


A 








0188 


47 




MOV 


B, A 








0189 


4F 




MOV 


C, A 








018A 


1E20 




MVI 


E, 20H 


; 


BINARY POINT-32 




018C 


CDO00B 




CALL 


FLT 


; 


ACCUM=N 




018F 


21C001 




LXI 


H, LN2 








0192 


CD8C08 




CALL 


MUL 


; 


ACC=N+. 6931472 




0195 


210011 




LXI 


H, BUF 








0198 


CDD708 




CALL 


AD 


; 


ACCUM=LN<X::' 




9B 


21BC01 




LXI 


H, BASE 








-x9E 


CDB408 




CALL 


DIV 


'? 


ACCUM=LOG < BASE B > - 


'. X •' 


01A1 


215411 




LXI 


H, ANS 








01A4 


CD3E08 




CALL 


STR 


; 


SAVE ANSWER 




01A7 


C9 




RET 




j 


THAT'S ALL, FOLKS 




01A8 


81000000 


FP1 : 


DB 


81H, 0, 0, 





.; 1. 00 




01AC 


82000000 


FP2: 


DB 


82H, 0, 0, 





.; 2. OO 




01B0 


82400000 


FP3: 


DB 


82H, 40H, 


0, 


; 3. 00 




01B4 


84700000 


FP15 : 


DB 


84H, 70H, 


0, 


0, i 15. 00 




01B8 


85380000 


FP23 : 


DB 


85H, 38H, 


0, 


0, .; 23. 00 




01BC 


82135D8E 


BASE : 


DB 


82H, 13H, 


SDH, 8EH .; LN<10> 




01C0 


80317218 


LN2: 


DB 


80H, 31H, 


72H, 18H .; LN<2> 




0000 






END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



6826 



D 4004 D 4040 B 8008 D 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



Approximating Routine 



To solve functions such as the log, the antilog, the sine, 
and the tangent function. The program given is set up to 
solve the antilog (base 2) function. 



None 



Various uses may require other routines. For example, to 
use the routine for the antilog routine, a double register 
left shift routine is required. 



For the antilog routine, the input is the mantissa, as an 
integral multiple of 1/256. 

For the Sine routine, the input is the angle, as integral 
multiple of 90*7256. 



The antilog routine returns the fractional part of 2 
where X is the incut. 



(X/256) 



The Sine routine returns the integral value of 256 * Sine (X) 
where X is the input. 



Registers Modified: 

A, C, D, H and L 


Assembler/Compiler Used: 

MAC 8 VER 2.3 


RAM Required: 

NONE 


Programmer: 

W.E. BAKER 


ROM Required : 

59 bytes 


Company: 

BELL TELEPHONE LABORATORIES 


Maximum Subroutine Nesting Level: 

ONE 


Address: 

H0LWDEL, NEW JERSEY 07733 
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The approximation routine solves equations of the 
form Y = F(X) where X and Y are 8 bit integers. The routine 

contains a table of values of F(l6«N) for N = 0, 1, 2, , 

16. For any given input, X, the routine calculates an N and 
a D such that X = 16«N+D. It then approximates the value of 
F(X) as 

F(X) = F(l6-N) + ^ [ F(16(N+1)) - F(16-N) ]. 
ANTILOG FUNCTION 

The routine can be used to solve the equation 

x 
y = 2 where 

8 > x >_ 

by using the substitution 

x = N + X 



Working only wjth the term -^ use the routine to solve the 

equation 

X 
Y _ p 25F 

Assume a double register left shift routine which operates 
on the register pair B, C. Load 1 into B, y into C, and 
shift left N times. The solution y is given by 



y " B + 555" • 



Sine F.unction 



The routine can be used for solving the equation 
y = sin(x) by defining the input argument, X, as X = 256-^4 

The values of the table are the integer values of 256-Sin 

90° 
(l6 ' N '25F ) for N = 0, 1, 2, — , 16. The result y is given 

with 8 bit accuracy by y = Y/256. 
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Restrictions 

To use the approximating routine, the function 
must meet the following criteria: 

1. It must be monotonic increasing 

2. Input and output must be expressible as integers 
between and 255. 

3. F(16N + 16) - P(l6N) <32 for <. N <_ 15. 

Test Program 

The program, TEST will generate the 256 values of 
ALOG for inputs from to 255 and will store chem on page 11. 
These results can then be compared to the contents of 
Table 1, which were calculated by a BASIC program. The 
maximum error in any location should be ±1. 



5-156 



8080 MACRO ASSEMBLER, VI. 



PAGE 1 



REF. NO. BB26 

PROGRAM TITLE APPROXIMATING ROUTINE 



0800 




ORG 


4000Q 




0800 2E2B 


ALOG: 


MVI 


L, 053Q 


; POINT TO 


0802 2608 


API: 


MVI 


H, 010Q 


;F<1> 


0804 07 


AP2: 


RLC 






0805 07 




RLC 






0806 07 




RLC 






0807 07 




RLC 






0808 4F 

0809 E6F0 




MOV 
AN I 


C, A 
360Q 


; C=16*DEL+N 


080B 57 




MOV 


D, A 


i D=16*DEL 


080C 79 




MOV 


A, C 




080D E60F 




AN I 


017Q 


.: A=N 


080F 85 




ADD 


L 




0810 6F 

^JLl 7E 

bo<12 2D 




MOV 


L, A 


;L POINTS TO F<N+1> 




MOV 
DCR 


A, M 

L 


> A=F<N+1> 


0813 96 




SUB 


M 


i A=F<N+1>-F<N> 


0814 6E 




MOV 


L, M 


; L=F<N> 


0815 2605 




MVI 


H, 5 




0817 A7 




ANA 


A 




0818 IF 


AP3: 


RAR 






0819 D21E08 




JNC 


AP4 




081C A7 
081D 82 




ANA 
ADD 


A 
D 


; CLEAR CARRV 


081E 25 


AP4: 


DCR 


H 




081F C21808 




JNZ 


AP3 




0822 IF 




RAR 






0823 IF 




RAR 






0824 IF 




RAR 






0825 IF 




RAR 






0826 E61F 




AN I 


037Q 




0828 85 




ADD 


L 




0829 C9 




RET 






082A 000B1723 




DB 


0. 11, 23, 


35 


082E 303E4C5B 




DB 


48, 62, 76, 91 


0832 6A7A8B9C 




DB 


106, 122, 


139, 156 


0836 AFC2D6EA 




DB 


175, 194, 


214, 234 


083A 00 




DB 







0000 




END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BB27 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 □ 4040 D 8008 H 8080 



(use additional sheets if necessary) 



SIN X, COS X SUBRDUnNE 



Generates Sine or Cosine accurate to 8 bits of an input angle that 
is accurate to 8 bits. Uses a Chebyshev Econoralzation of Taylor 
Series for Cosine X. Sine X is generated by conpDementlng the 
angle X with respect to 90° (x» = 90° -X) and then taking Cosine X. 



Machine line and coniiguration for cross products 



Binary Multiplication Loop given in Intel Specification Bulletin on 
8080 CPU (MCS-064-47V25K) , page 17. Routine must be modified to act 
as a subroutine and is shown in listing. 



Subroutine is entered with call CpS Xor call SINX with X in register A. 
For 0° <_ Angle < 90° 
Often CH < X < FFH 



Subroutine is exited with the Cos of X (Sine of X) in register A. 
For < Cos <• 1.00 

OH < Cos X < FFH 



Registers Modified: 

All register modified 



RAM Required: 

Minimum C256 Bytes) 



ROM Required: 

25H 



Maximum Subroutine Nesting Level: 

Two 



Assembler/Compiler Used: 

8080 Macro Assembler Version 2.0 



Programmer: 

Billy R. Slater 



Company:, 

Forney En gineering 



Address: 



P.O. Box 189 
Addison, Texas 75001 



98-034B 
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J REF. NO. BB27 

; PROGRAM TITLE SIN X, COS X SUBROUTINES 



; COb X < CHEBVSHEV EC0N0MI2ATI0N OF 
; TAVLOR EXPANSION > 



CALLING SEQUENCE 



CALL COSX 

A = INPUT X 

OUTPUT - A, COS X 



; 9<= X <=255. FOR ©•<= ANGLE <= 90- 
; COS X =255/ , 255-2+153/255 : + : X'~'2+60+X'"'4 



1000 






ORG 


1000H 




J00 


2F 


SI NX: 


CMA 




: FORM SINX=COS-::90 


1001 


110000 


COSX : 


LXI 


D, 


. CLEAR D.&E 


1004 


5F 




MOV 


E, A 




1005 


CD2510 




CALL 


MULT 


: SQUARE X 


1008 


5C 




MOV 


E, H 




1009 


1600 




MVI 


D, 


: CLEAR D 


100B 


D5 




PUSH 


D 


= SAVE SQUARE X 


100C 


?B 




MOV 


A, E 




100D 


CD2510 




CALL 


MULT 


; RAISE X TO 
: FOURTH POWER 


1010 


5C 




MOV 


E, H 




1011 


1600 




MVI 


D, 




1013 


3E3C 




MVI 


A, 60 




1015 


CD2510 




CALL 


MULT 


FORM 60+X-4 


1018 


4C 




MOV 


C, H 


AND SAVE 


1019 


Dl 




POP 


D 


GET X SQUARED 


101A 


3E9F 




MVI 


A, 159 




101C 


CD2510 




CALL 


MULT 


FORM 159+X~ - 2 


101F 


3EFF 




MVI 


A, 255 




1021 


94 




SUB 


H 


FORM 255-159+X-2 


1022 


81 




ADD 


c 


ADD +60*X'"4 


1023 


94 




SUB 


H 


SUBT 159*X"-2 


1024 


C9 




RET 







.: MULT I PL V SUEfR:OUTINE 



.: CALLING SEQUENCE 



CALL MULT 
A =MULTJPLIER 
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1025 


210000 


MULT : 


LX I 


1028 


0608 




MVI 


102A 


29 


LOOP : 


DAD 


102B 


17 




RAL 


102C 


D23210 




JNC 


102F 


19 




DAD 


1030 


CE00 




AC I 


1032 


05 


DEC : 


DCR 



1033 C22A10 



±QS6 C9 

0000 



JNZ 



RET 
END 



D&E = MULT I PL I CAN 
OUTPUT = H&L < PRODUCT > 



H, O ; INIT PARTIAL PROD TO O 
B, 8 ; 8>B TO CONTROL LOOP 
H ; SHIFT PARTIAL TO LEFT 

INTO CARRV 

ROTATE MULTIPLIER BIT 

TO CARRV 
DEC .= TEST MULTIPLIER 

AT CARRV 
D .; ADDMULTIPLICAND TO 

PARTIAL PRODUCT 

IF CARRV = 1 



B ; DECREMENT B 

; LOOP COUNTER 
LOOP } TEST TO SEE IF 

■ t B = TO ITERATE 

.; 8 T I MES 
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MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM «*• no bb 28 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 13 8080 



(use additional sheets if necessary) 



INTEGRATION ROUTINE - RMSTF 



To calculate the Integration "T" of any continuous function "F(x)" 
between two limits "a" and "b". 



T - 1 



fc=b 



b-a 



P(x) dx 



None 



x=a 



PL/M Compiler 



The Integrated function is given by (N+l) equally spaced points 
stored sequentially in contiguous memory locations starting with 
"P(a)" and ending with "F(b)". 

Ihe input arguments are a pointer to the starting address, and 
the number "N" which represents the number of the interval sub- 
divisions. 

"N 11 should be representable In the form N = 2™; where "m" is an 
integer number less or equal to 7. Each of the function ordinates 
can be any integer from to 32787. 

Ihe procedure returns the calculated value of the integration 

with an error proportional to the "2(m + l)"th power of the 

smallest interval subdivision "H ". 

m 

All other errors corresponding to the smaller powers of "H " are 
completely eliminated. m 



Registers Modified: 

ALL 



RAM Required: 

37 BYTES 



ROM Required: 

947 BYTES 



Maximum Subroutine Nesting Level: 

2 



Assembler/Compiler Used: 

8Q8O PIJVI1, PIM2 VERS 1.3 



Programmer: 

M.A. Madkour 



Company: 

ATOMIC ENERGY ESTAB. 3 (EGYPT) 



Address: 

ANSHASS, EGYPT 



98-034B 
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Explanation of RMSTF 

The integration is performed following the Ranberg-Stief el algorithm/!/. Based 
on the simple trapizoidal rule, and using any number of equal subdivisions "NL" , 
the integration "T" can be approximated by: 

T(L) = (1/2 (F +FJ + EF.l/NL (1) 

a b .1 

l 

where F. stands for all intermediate ordinates of F,(x). 

The procedure starts by calculating a set of "m + 1" approximations T(0) to T(m) 
starting by considering a single subdivision whose width is the entire integration 
interval (b - a), and then using the suitable intermediate points such that the 
number of subdivisions is doubled every next calculation until ending with the given 
"N" smallest ones having width of of H = (b - a)/N each. The error in the above 
approximations is proportional to the square of the relevant subdivision width in 
every case. 

However, to get that error of the last case down to the stated accuracy, the above 

mentioned "m +1" set of approximations is used to obtain a second set of "m" elements 

representing new approximate values of "T" and having their errors proportional to 

the 4th power of the relevant subdivision widths. Such correction steps are carried 

out "m" times ending with a set of a single element representing the best value of 

the integration and having an error proportional to the "2 (m + l)"th power of the 

smallest subdivision "H ". 

m 

The combination of these "m +1" sets represents a left hand side triangular matrix 
in which the elements of each column "K" are computed from those of the previous one 
using the following formula: 

2K 
T(L, K) = T(L, K - 1) + (T(L, K - 1) - T (L - 1, K - l))/(2 - 1) .. (2) 

During execution, the new elements T (L, K) overwrite the old ones T (L, K - 1) , and 
therefore it is necessary to store both the elements T (L) and their differences 
D(L) in every correction step "K" . Moreover, the values of D (L) are rectified to ensure 
proper operation of the division, and their signs are stored in parallel. 

Included is a test driver to demonstrate the calling sequence of the procedure. 

Reference: 

1. Introduction to Numerical Analysis, 2nd Ed. , C.E. Fr6berg, Addison-Wesley 
Publication Company, 1969, p.p. 203. 
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00001 




00002 




00003 




00004 




00005 




06 




0UJ07 




00008 




00009 


2 


00010 


2 


00011 


2 


00012 


2 


00013 


2 


00014 


2 


00015 


2 


00016 


2 


00017 


2 


00018 


3 


00019 


3 


00020 


3 


00021 


3 


00022 


3 


00023 


4 


00024 


4 


00025 


3 


00026 


3 


00027 


3 


00028 


2 


00029 


2 


00030 


2 


0<^31 


2 


32 


2 


00033 


3 


00034 


3 


00035 


2 


00036 


2 


00037 


2 


00038 


3 


00039 


2 


00040 


2 


00041 


2 


00042 


2 


00043 


3 


00044 


3 


00045 


2 


00046 


2 


00047 


2 


00048 


2 


00049 


2 


00050 


2 


00051 


2 


00052 


2 


00053 


2 


00054 


2 


00055 


2 


00056 


2 


a' 7 


2 


00vo8 


2 


00059 


2 


00060 


3 



/*REF. NO. BB28 */ 
/♦PROGRAM TITLE RMSTF*/ 

20: DECLARE AREA ADDRESS; 

RMSTF: 

PROCEDURE (PTR,N) ADDRESS; 

DECLARE PTR ADDRESS, (F BASED PTR) (129) ADDRESS; 

DECLARE (TEMP, MAX, C) ADDRESS; 

DECLARE POS LITERALLY '0', NEG LITERALLY 'OFFH*, 

CNSTNT LITERALLY 'MAX'; 
DECLARE (T,D) (8) ADDRESS; 
DECLARE S (8) BYTE; 

DECLARE (N,NL,M,I,L,K,P,H,HIGH) BYTE; 
DIFFERENCE: 
PROCEDURE; 
S(L) = pos; 
D(L) = TCL) - T(L-l); 

if carry then 
do; 

D(L) = -D(L); 
SlL) = NEG; 

end; 

D(L) = DCL) / ( CNSTNT - 1 ); 

return; 
end difference; 

h,nl = n; 
M = 0; 

do while nl>i; 
m = m + l; 

NL = SHR(NL,1); 

end; 

max = o; 

do I = o to n; 

IF F(I)>MAX THEN MAX = F (I); /» 0<=F(I )<=32787 */ 

end; 

IF MAX=0 THEN RETURN MAX; 

p = p + l; /* RESET CARRY */ 

DO WHILE CARRY=0; 

P s P ■♦• l; 

MAX = SHL(MAX,1); 

end; 

/* ALL VALUES OF F(I) WILL BE SHIFTED 

LEFT P TIMES TO INCREASE THE ACCURACY */ 

TEMP s F(0) +F(N); 

IF P>1 THEN TEMP * SHL(TEMP,P=1 ) ; 

T(0) = TEMP; /* FIRST APPROX. USING SINGLE TRAPIZOIDE »/ 

HIGH = 0; 

CNSTNT = 4; 

/* NOW NL = 2 */ 

DO L = 1 TO M; /* FIND BETTER APPROXIMATIONS TCL) */ 
/* SUM UP ALL NEW INTERMEDIATE ORDINATES */ 

C = 0; 

I = SHR(H,1); 
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00061 

00062 

00063 

00064 

00065 

C 66 

Ov/06 7 

00068 

00069 

00070 

00071 

00072 

00073 

000/4 

00075 

00076 

0007 7 

0007b 

00079 

00080 

00081 

00082 

00083 

00084 

00085 

00086 

00087 

00088 

00089 

00090 

00^91 

)2 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
NO PROGRAM 



3 

3 

4 

4 

4 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

3 

3 

3 

3 

3 

3 

2 

2 

2 

2 

2 

2 

3 

3 

4 

4 

4 

3 



DO WHILE KN; 

C = C + SHL(F(I),P); 

IF CARRY THEN HIGH = HIGH + 1; 

1 = I ♦ h; 
END; 
H = SHR(H,1); 



/* 3-BYTE SUM OF 


TERMS IN EQUATION 


TEMP = TEMP + C; 








IF CARRY THEN HIGH = 


HIGH 


♦ i; 


/* DIVIDE BY NL 


USING 


RIGHT 


SHIFTS 


C = TEMP; 








K = high; 








DO I = i to l; 








K = SHR(K,1); 








c = scr(ci); 








end; 








T(L) = c; 









(1) */ 



L TIMES */ 



CALL difference; 

NL = NL + NL; /* USE TfclCE AS MANY TRAPIZOIDES FOR 

NEXT CALCULATION */ 

end; 

/* START CORRECTION FOR THE EFFECT OF ALL ERRORS INTRODUCED 
BY UP TO THE (2M)TH POWER OF THE SMALLEST SUBDIVISION V 

DO K = 1 TO M; 

CNSTNT = SHL(CNSTNT,2); 
DO L = K TO M; 

IF S(L) THEN T(L) = T(L) - D(L); 

ELSE T(L) = T(L) + D(L); 
IF L>K THEN CALL DIFFERENCE; 

end; 
end; 

RETURN SHR(T(M),P); 
END rmstf; 

/* RMSTF INVOCATION */ 

DECLARE Y(17) ADDRESS INITIAL 

(10000,9412,8889,8421,8000,7619,7273,6956,6667, 
6400,6154,5926,5714,5517,5333,5161,5000); 
DECLARE (XI, X2) ADDRESS INITIAL (1,2); /* X2 > XI */ 



AREA = (X2-X1) 
EOF 
ERRORS 



* RMSTF(.Y,LAST(Y)); 
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MICROCOMPUTER 

LIBRARY SUBMITTAL FORM Ref . no, 



BB29 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



3 4004 □ 8008 0(8080 



(use additional sheets if necessary) 



BINARY TO BCD CONVERSION, LEADING ZERO BLANKING - 32-BIT 

THE PROGRAM FIRST LOADS THE BINARY WORD FROM EXTERNAL 
MEMORY INTO REGISTERS D,E,H,L ACCEDING TO THE ADDRESS IN 
REG HL. REG A IS LOADED WITH THE MAXIMUM NUMBER OF BCD 
DIGITS EXPECTED. THIS NUMBER IS USED FOR LEADING ZERO 
SUPPRESSION - IT INITIALIZES THE RESULT TO ALL BLANKS. 
THE BINARY WORD IS DIVIDED BY 10 AND THE REMAINDER 
+ 30H (ASCII "0") IS TAKEN AS THE NEXT BCD DIGIT IN THE 
RESULT - LSB FIRST. THE CALCULATION IS TERMINATED WHEN 
THE BINARY WORD AFTER DIVISION EQUALS ZERO. 

NO HARDWARE REQUIRED 



16 BIT X 16 BIT DIVIDE ROUTINE - INCLUDED 



HL - ADDRESS OF BINARY WORD 

CMSB* ...*LSB3 , CHL/.. .^HL-33 

BC - ADDRESS OF BCD (ASCII) RESULT 

CMSB, . ..,LSB3 > CBC-9*. . .,BC3 



ASCII RESULT IN C BC-9, . . . ,BC3 - SEE ABOVE 



Registers Modified: 



A L . L » RE - GI _. S T E R S MODIFIED 

RAM Required: 

UP TO 10 LOCATIONS FOR RESULT 

ROM Required : 

6DH -109 WORDS 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

8080 MACRO ASSEMBLER/ 



VER 2.0 



Programmer: 



Dr. Han Tal 
Elscint Ltd. 



Company: Box 5258 

Haifa 31-051, ISRAEL 
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8886 MACRO ASSEMBLER, VI. O 



PAGE 1 



; REF. NO. BB29 

.; PROGRAM TITLE 32 BIT BINARV TO BCD ASCII FORMAT 



; INTERRUPTABLE 32 BIT <OR LESS> BINARV TO BCD ROUTINE 
; THESE ARE DESIGNED FOR USE WITH INTERRUPTING 
jPERIFERALS WHICH OUTPUT ASCII 



9010 

9010 56 

9011 2B 
0012 5E 

13 2B 

0014 7E 

0015 2B 

0016 6E 

0017 67 

0018 3E0A 
001A C31D00 



001D 


C5 


001E 


E5 


001F 


60 


0020 


69 


0021 


3620 


0023 


2B 


0024 


3D 


0025 


C22100 


0028 


210000 


2B 


01F6FF 


JE 


CD4D0O 


0031 


E3 


0032 


EB 



; BCD CONVERSION OF 32 BIT WORD 

J REG <HL> CONTAINS ADDRESS OF MSB OF BINARV WORD 

.; REG <BC> CONTAINS ADDRESS OF RESULT 

;REG A SET TO NUMBER BCD DIGITS<10> 

i RESULT WILL BE IN C BC-9, BC-8, . . BC 3, MSB FIRST 



bcd: 



ORG 


10H 




MOV 


D, M 


; LOAD WORD 


DCX 


H 




MOV 


E, M 




DCX 


H 




MOV 


A, M 




DCX 


H 




MOV 


L, M 




MOV 


H, A 




MVI 


A, 10 


;NUM DIGITS 


JMP 


BCD 


.; BCD CONVERSIO 



; BINARV TO BCD < ACS 1 1 CODE> CONVERSION ROUTINE 

.; MAXIMUM 32 BITS BINARV NUMBER 

; THE RESULT CAN BE WRITTEN ANVWHERE IN MEMORV 

.: <BC> CONTAINS ADDRESS OF MEMORV WHERE 

> NUMBER OF BCD DIGITS IN RESULT IS WRITTEN 

.; RESULT WILL BE FOUND IN MEMORV AT ADDRESS 

J C <BC+NUM BCD DIGITS-1> BC-1, BC D, IN FORMAT 

; CMSB S, .... LSB'SD 

.: REG A CONTAINS NUMBER OF BCD DIGITS IN RESULT 



BCD 



BCD1 



BCD2: 



PUSH 

PUSH 

MOV 

MOV 

MVI 

DCX 

DCR 

JNZ 

LXI 

LXI 

CALL 

XTHL 

XCHG 



B 
H 

H, B 
L, C 
M, 20H 
H 
A 

BCD1 
H, 

B, NOT 9 
DIVIDE 



.J STORE RESULT ADDR 

.; STORE LSB 

; RESULT ADDR TO HL 

; ASCI I BLANK 



NO REMAINDER 

2'S COMPLEMENT 10 
MSB/10 
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8980 MRCRO RSSEMBLER, VI. O 



PRGE 



00": 3 
0038 
0038 

003 9 
003R 
0038 
003'C 
00 3D 
00 3E 
003F 
0042 
©043 
0044 

0045 
0046 
0047 
004R 
004B 

004 C 
004D 
004 F 



CD4DO0 
3E30 

47 
Dl 
7D 
B4 

B2 

B3 

CR4R00 

E3 

70 

2B 

E3 

E5 

C32800 

El 

70 

C9 

3E3C 

E5 



V J51 31 



151 
0052 
0053 
0054 
0055 
0056 
0059 
005R 
005C 
005D 
005E 
0O5F 

0060 

0063 
0064 
0O65 
0066 
6067 
00 6 R 
006E'- 

0000 



EB 
IF 
29 
17 
D25R00 

C604 

F8 

EB 

29 

IF 

D 26 4 00 



E5 

09 

DR5000 

El 

C 3 5 200 



BCD' 



DIVIDE 



DIV1 



DIV2 



CALL 

MVI 

RDD 

MOV 

PGP 

MOV 

ORA 

ORA 

ORR 

JZ 

XTHL 

NOV 

DCX 

XTHL 

PUSH 

JMP 

POP 

MOV 

RET 

MV I 

PUSH 

I NX 

I NX 

XCHG 

RRR 

DRD 

RRL 

JNC 

I NX 

RDI 

RM 

XCHG 

DRD 

RRR 

JNC 

I NX 

RDD 

PUSH 

DRD 

JC 

POP 

JMP 

END 



D I V I DE 

R, 30H 

E 

B, R 

D 

R, L 

H 

D 

E 

BCD3 

M, B 
H 

H 

BCD2 
H 
M, B 

A, 3CH 

H 

SP 

SP 



H 

*+4 

H 

4 



H 

$+4 

H 

R 

H 

B 

DIV1 

H 

DIV2 



LSB/1G 
RSCII "O" 
RDD REMRINDER 
TEMP STORE IN B 
MSB 



WORD=0? 

HL=RDDR OF RESULT 
WRITE RESULT 
DCR RDDR 

STORE IN STACK RDDR, LSB 

HL=ADDR OF RESULT 
WRITE RESULT 

COUNTER 

ADJUST STACK POINTER FOR 
NO UNDERFLOW 

; SAVE CRRRV BIT 

i SHIFT DE 

; RESTORE CRRRV, SRVE DE OVERFLOW 

; WRITE CRRRV IN DE 
; INCREMENT COUNTER 



RESTORE DE OVERFLOW 

WRITE DE OVERFLOW IN HL 
CORRECT A SHIFT 
'SRVE HL FOR UNDERFLOW 
2'S COMPLEMENT ADD 
NO UNDERFLOW 
UNDERFLOW, RESTORE HL 
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Ref. No. BB31 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 D 8008 XI 8080 D 3000 



(use additional sheets if necessary) 



Fixed point Chebyshev sine and cosine for PL/M users 

This package, which enables the PL/M user to compute sines and cosines 
without the need for floating point arithmetic, consists of four pro- 
cedures . 

MULT performs unsigned multiplication of ADDRESS variables using the 
shift and add technique. The 16 high order bits of the 32 bit product 
are returned. 

SIN and COS evaluate the sine and cosine, respectively, of angles in 
the range to 2tt. The argument of these routines 1s a variable of type 
ADDRESS which contains the angle in radians. To minimize truncation 
errors, this value is scaled by 2 13 allowing 3 bits for the representa- 
tion of the integer part and 13 for the fraction. The value to be return- 
ed is obtained by calling the procedure COSINE using the following rules: 

COS (x) = COSINE (x) SIN (x) = COSINE (£ -x) 0< x < \ 
COS (x) = - COSINE (tt-x) SIN (x) = COSINE (x- £) * 



*X < TT 



"5 * _ 

ir<x<| 



3tt 



COS (x) = - COSINE (x-tt) SIN (x) = - COSINE ( 4p -x) 
COS (x) = COSINE (2ir-x) SIN (x) = - COSINE (x- Q) 
COSINE, the heart of the package, finds the cosine of an angle between 



<x<2tt 



"2T — 



+ x< 



(a 6 + x 2 (a« + aio x 2 )))) 
a 8 = .00002 47609 
aio a -.00000 02605 



and j radians by evaluating the Chebyshev polynomial 
cos = 1 + x 2 (a£ + x 
a£ ■ -.49999 99963 
a4 = .04166 66418 
a 6 = -.00138 88397 

The ADDRESS Input parameter in this case Is scaled by 2 15 with the 
output a signed ADDRESS value scaled by 214. Users not requiring this 
much accuracy mav, use the standard economization techniques to reduce the 
degree of the polynomial . 

The main program should cause the following values to be computed: 

TSTCOS (0) = 2D 43 TSTSIN (0) = 2D 42 

TSTCOS (1) = D2 BE TSTSIN (1) = 2D 42 

TSTCOS 2 = D2 BE TSTSIN (2) = D2 BE 

TSTCOS (3) = 20 02 TSTSIN (3) - C8 93 

Although not exhaustively tested, it appears the average error in COSINE is 
less than .0001 when the truncation of the inpu t anole is taken into account 



Registers Modified: 
ALL 



RAM Required: 



42 words 



ROM Required: 

711 words 



Maximum Subroutine Nesting Level: 
o 



Assembler/Compiler Used: 

PL/M 



Programmer: 

Bradley G. Stewart 



Company: 



Aeronutronic Ford Corp. 



Address: && Habian way 

Palo Alto, CA 94303 



98-034C 
5-171 



00001 




00002 




J0003 




00004 




00005 




00006 




00007 




00008 




00009 




00010 




00011 




00012 




00013 




00014 


2 


00015 


2 


00016 


2 


00017 


2 


00018 


2 


00019 


3 


00020 


3 


00021 


3 


00022 


4 


00023 


4 


00024 


3 


00025 


2 


00026 


2 


00027 


1 


00028 


1 


00029 


1 


00030 


1 


00031 


1 


00032 


2 


00033 


2 


00034 


2 


00035 


2 


00036 


2 


00037 




00038 




00039 




00040 




00041 




00042 




00043 




00044 


2 


00045 


2 


00046 


2 


00047 


2 


00048 


2 


00049 


2 


00050 


2 


00051 


2 


00052 


2 


00053 


2 


00054 


1 


00055 


1 


00056 


2 


00057 


2 


00058 


2 


00059 


2 


00060 


2 



/*REF. NO. BB31 */ 

/♦PROGRAM TITLE FIXED POINT CHEBYSHEV SINE AND COSIME 



FOR PL/M USERS */ 



DECLARE (TSTC3S,TSTSIN) (4) ADDRESS; 

DECLARE Tby?e| 4) ADDRESS 1HUlkL ( 6433 ' * 9 ^ ' 321 69, 42893 ) ; 

/* THE MULT ROUTINE MULTIPLIES TWO BIT NUMBERS 

AND RETURNS THE HIGH ORDER 16 BITS OF THE RESULT ♦ / 



MULT: 



/* 



COSINE: 



/* 



SIN: 



CDS: 



PROCEDURE (MULX,MULY) ADDRESS; 

DECLARE (MULX,MULY,MULHO,MULLO) ADDRESS; 

DECLARE MULI BYTE; 

MULHO = MULX; MULLO = 0; 

DO MULI = 1 TO 16; 

MULLO = SHL(MULLO,l); 
MULHO = SCL(MULHO,l); 
IF CARRY THEN DO; 

MULLO = MULLO + MULY; 
MULHO s MULHO PLUS 0; 
END; 

end; 

RETURN MULHO; 
END MULT; 

AVO PI/2 THE ARGUMENT IS SCALED BY 2**15 */ 

PROCEDURE (RADS) ADDRESS; 

DECLARE (RADS,RADT) ADDRESS; 

RADS = MULT (RADS, RADS); 

RADT = 10923 - MULTC RADS, 1 456 - 

104 - MULT(5,RADS))); 

RETURN 16384 - MULTC RADS, 32768 - 

END COSINE; 



MULTCRADS, 

MULTCRADS, RADT)); 



THE NEXT T«0 FUNCTIONS FIND THE SINE AND CJSIME IF 
ANGLES BETWEEN AND 2*PI THE ARGUMENTS ARE in * 
RADIANS AND ARE SCALED 3Y 2**13 */ 

PROCEDURE (RADS) ADDRESS; 

DECLARE RADS ADDRESS; 

IF RADS>51471 THEN RADS = RADS - 51471; 

IF RADS>38603 THEN 

RETURN -COSINECSRLCRADS - 38603,2)); 
IF RADS>25735 THEN 

RETURN - COSINECSHLC38503 - RADS, 2)); 
IF RADS>12867 THEN 

RETURN COSlNE(SHL(RADS - 12857,2)); 
RETURN CL)SINE(SHL(12867 - RADS, 2)); 
E^D SIN; 

PROCEDURE (RADS) ADDRESS; 
DECLARE RADS ADDRESS; 

IF RADS>51471 THEN RADS = RADS - 51471; 
IF RADS>38603 THEN 

RETURN C0SINE(SHL(51471 - RADS, 2)); 
IF RADS>25735 THEN 
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00061 


2 




00062 


2 




00063 


2 




00064 


2 




00065 


2 




00066 






00067 




/* 


00068 






00069 






UU070 




DO I - IG 


00071 




rSTSIN(I) 


00072 


2 


TSTCOSCI) 


00073 


2 


end; 


00074 


1 


EOF 


NO PROGRA 1 


t RRORS 



- 25735,2)) 



- RADS,2)) 



RETURN -COSINECSHLCRADS 
IP RADS>12867 THEN 

RETURN -COSINECSHLC25735 
RETURN COSINECSHLCRADS, 2)); 

END cos; 



THE MAIN PROGRAM CALCULATES THE SINE 
45, 135, 225, AND 300 DEGREES */ 



AND COSINE Or 



= SINCVALUESCI)); 
= COSCVALUESCD) ; 
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Program 
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Function 
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Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 (3 8080 D 3000 



(use additional sheets if necessary) 



32 BIT DIVIDE SUBROUTINE 

This is a non reentrant divide routine. The dividend is 32 
bits; the divisor and quotient are 16 bits in length. All 
are signed numbers. Carry is set if overflow occurred, 
clear otherwise. 



Minimum: SDK-80 



None 



Routine is entered with return address at top of stack, HL 
pointing to the following parameter block: 



( (H) (L) ) +0 MS BYTE DIVIDEND 

1 : 

2 

3 LS BYTE DIVIDEND 



( (H) (L) ) -6 MS BYTE DIVIDEND 
-5 
-4 
-3 LS BYTE DIVIDEND 



((H) (L)) 



+ 4 MS BYTE 
5 LS BYTE 



DIVISOR 
DIVISOR 



( (H) (L) ) -2 MS BYTE DIVI|SOR 
- 1 LS BYTE DI\ 
+ MS BYTE QUOTIENT 
+ 1 LS BYTE QUOTIENT 



Carry clear for no overflow, carry set for overflow , 
overflow had occurred, quotient value is undefined. 



If 



Registers Modified: 
A,B,C,D,E,H,L, F/F's 



RAM Required: 
202 (CA) 



16 



Routine & Tern] ) Programmer: 
+8+6 Storage & Stack Albert J. Gibbons 



ROM Required: 

None 



Maximum Subroutine Nesting Level: 
Non reentrant 



Assembler/Compiler Used: 
MAC 80 on TYMSHARE 



Company: Westinghouse 

Industry Systems Div. 



Address: 



200 Beta Drive 
Pittsburgh, Pa. 15238 



98-034C 
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MICROCOMPUTER USERS 

LIBRARY SUBMITTAL FORM Ref No BB33 



D 4004 D 4040 D 8008 B 8080 D 3000 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



8 BIT MULT AND DIV. 

MULT : TO MULT TWO 8 BIT OPERANDS TO FORM A 16 BIT RESULT 
DIV : TO DIV 15 BITS BY 8 

8080 PROCESSOR SYSTEM 



NONE 



SEE NOTES ON ATTACHED DOCUMENTATION 



Registers Modified: 
A,D,H, AND L 


Assembler/Compiler Used: 
8080 ASSEMBLER MODIFIED 


RAM Required: 
30 BYTES 


Programmer: 
RGNAIJ) D. WILFONG 


ROM Required: 



Company: 
DIABLO SYSTEMS 


Maximum Subroutine Nesting Level: 



Address: 
1270 E. ARQUES, SUNNYVALE, CALIF. 



98-034C 
5-177 



ISIS 8080 MACRO ASSEMBLER, VI. 



PAGE 1 



REF. NO. BB23 

PROGRAM TITLE 8 BIT MULT & DIVIDE 



MULT I PL V TWO 8 BIT OPERANDS TO FROM A 16 BIT RESULT 

OPERANDS AND RESULT ARE UNSIGNED NUMBER 

SAVES B, C, AND E REGS 

CALLING SEQ: MVI H, OPERANDI 

MVI E, 0PERAND2 

CALL MULT 

RESULT IS IN^HL REG 



0090 3E08 MULT: 

0002 2E00 

0004 55 

P'^05 29 MULT1 

V_d€ D20A00 

0009 19 

000A 3D MULT2 

000B Q20500 

000E C9 



;LOOP COUNTER 



MVI A, 8 

MVI L, 

MOV D, L 

DAD H 

JNC MULT2 

DAD D 

DCR A 

JN2 MULT1 

RET 

DIVIDE SUB. 15 BITS/8 = 8 
L REG = HL/E REG 
REMAINDER IN H REG 
HL IS UNSIGNED 15 BITIDEND 
E IS UNSIGNED 8 BIT DIVISOR 

QUOTIENT MUST BE AN UNSIGNED 8 BIT QUANT I TV 
H MUST BE LESS THAN E REG 



000F 1608 


DIV: 


MVI 


D, 8 


0011 29 


D16L: 


DAD 


H 


0012 7C 




MOV 


A, H 


0013 93 




SUB 


E 


0014 DA1900 




JC 


D16N 


0017 67 




MOV 


H, A 


0018 2C 




INR 


L 


0019 15 


D16N : 


DCR 


D 


001A C21100 




JN2 


D16L 


©01D C9 




RET 




0.000 




END 





; LOOP COUNTER 
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Results 



□ 4004 D4040 D8O08 #8080 
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Double- Precision Integer Arithmetic Package 

- Compute sine and cosine of angle defined by an orthagonal 
16-bit coordinate pair. 

- Normalize 16-bit integer. 

- Multiply two 16-bit numbers for a 32-bit result. 

- Divide a 32-bit number by a 16-bit divisor to yield a 
16-bit quotient. 

- Take the square root of a 30-bit number. 

Intel 8080 Processor 



None 



See next page 



See next page 



Registers Modified: 

All 


Assembler/Compiler Used: 

ISIS 8080 Macro Assembler VI. 


RAM Required: 
approximately 30 bytes 


Programmer: . _ , 

N. Anderson/G. Woodley 


ROM Required: 
a total of 581 bytes 


Company: 

Woodley Associates 


Maximum Subroutine Nesting Level: 


Addr-M: 604 Indian Home Road 
Danville, CA 94526 



984)346 
5-180 



ADDENDUM TO: 

Microcomputer User's Library 

Submittal Form 

Double-Precision Arithmetic Package 

Definition of Input Parameters and Output Results 

Sine and Cosine 

The COSIN entry is used if the coordinate pair is pointed to by HL. 

The C0SIN1 entry is used if the X coordinate is in BC, and the Y 
coordinate is in DE. 

In either case, the coordinate pairs are stored in four-byte groups, 
from lowest addressed byte to highest addressed byte in the following 
order: X-coordinate, Low-order byte, High order byte, Y-coordinate, 
Low-order byte, High-order byte. 

Exit with cosine and sine of the angle defined by X and Y coordinates on 
the stack, in that order. 

Normalize 

This subroutine is used primarily internally by the cosine subroutine. 

Its function is to increase the significance of the computed values. 

Enter NORM with a comparison value in HL and item to be normalized in 
BCDE. The comparison value places an upper limit on the normalization 
and is usually equal to 7FFF16. 
Exit with the scale factor in A, BCDE normalized, and HL undisturbed. 

Multiply 

Enter MUL with BC and DE containing 16-bit 2's complement multiplicand 

and multiplier. On exit, a 32-bit 2's complement result will be in BCDE. 

Divide 

Enter DIV with BCDE containing a 32-bit 2»s complement dividend, and HL 
containing a 16-bit 2's complement divisor. Exit with carry equal to 
and 16-bit 2's complement result in HL if division is successful. If the 
division is not successful (overflow or division by 0) exit with carry 
equals 1 and result equals 0. 

Square Root 

Enter SQRT with a 30-bit positive operand in BCDE. On exit, the 15-bit 

result is in HL. Maximum result is yFFE^. 
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D 4004 Q 4040 D 8008 £) 8060 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



FLOATING POINT EXTENDED MATH PACKAGE FOR 8080 - XMATH 



FLOATING POINT ROUTINES 
INTEGER/FRACTIONAL PART 
SQUARE ROOT 
LOG BASE E 
EXPONENTIAL* EtX 
LOG BASE 10 
10tX 

8080 



REAL BASE TO REAL EXPONENT ATX 
TRIG SIN* COS* AND TAN 

ARCSIN, ARCCOS* AND ARCTAN 
POLYNOMIAL EXPANDER 
DEGREES <- -> RADIANS CONVERSIONS 



8080 LIBRARY BASIC FLOATING POINT MATH PACKAGE BC1 
OR EXACT FUNCTIONAL EQUIVALENT 

SEE ATTABHED DOCUMENTATION 



SEE ATTACHED DOCUMENTATION 



Program offered 
on diskette only, 









Registers Modified: 
SEE DOCUMENTATION 


Assembler/Compiler Used: 
RESIDENT MACRO- ASSEMBLER 


RAM Required: 
256 BYTES 


Programmer: 
RI CHARD C ALLEN 


ROM Required: 
1700 BYTES 


Company: 
TEXAS MICROSYSTEMS* INC. 


Maximum Subroutine Nesting Level: 


Address: 66J0 HAHwIN# SUITE 125 
HOUSTON, TEXAS 77036 



8/78 



98-0348 
5-183 



SOFTWARE USER GUIDE AND DESCRIPTION, SYSTEM 



XMATH 



NAME: 
FUNCTION: 



XMATH 

8080 EXTENDED FUNCTION MATH PACKAGE 



AUTHOR: 
DATE: 



RICHARD C ALLEN, TEXAS MICROSYSTEMS, INC. 
20 SEP 7 5 



MACHINE: 
LANGUAGE: 



8080 
ASSEMBLY 



EXTERNALS: 



LIBRARY MATH PACKAGE, INTEL BC1 



ROUTINES: 



FPOLY - POLYNOMIAL EXPANDER 

FINT - FRACTIONAL/ INTEGER PART 

FSQR - SQUARE ROOT 

FLN - LOG BASE E 

FfcXP - EXPONENTIAL, EtX 

FLOG - LOG BASE 10 

FALOG - 10tx 

FAX. - REAL BASE TO REAL EXPONENT, AtX 

FSIN - SINE 

FCOS - COSINE 

FTAN - TANGENT 

FASIN - INVERSE SINE (ARCSIN) 

FACOS - INVERSE COSINE (ARCCOS) 

FATAN - INVERSE TANGENT (ARCTAN) 

FCDR - DEGREES TO RADIANS CONVERSION 

FCRD - RADIANS TO DEGREES CONVERSION 



DESCRIPTION: SEE ATTACHED DESCRIPTION FOR GENERAL NOTES 
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XMATH - 8080 FLOATING POINT EXTENDED FUNCTION MATH PACKAGE 

XMATH* IN CONJUNCTION WITH THE INTEL LIBRARY FLOATING 
POINT MATH PACKAGE BC1 OR EQUIVALENT* PROVIDES THE 8080 USER 
WITH ALL OF THE COMMONLY USED EXTENDED MATH FUNCTIONS. 

IN GENERAL* THE ROUTINES RETURN STATUS AND REGISTER 
INFORMATION IN THE SAME MANNER AS THE LIBRARY BASIC MATH PACK. 
INPUT ARGUMENTS ARE IN EITHER THE FLOATING POINT ACCUMULATOR, 
REFERRED TO AS FAC* AND/OR THE HL REGISTER. 

UNLESS SPECIFIED BY THE CALLING SEQUENCE* THE GENERAL 
MACHINE REGISTERS ARE INSIGNIFICANT ON INPUT AND RESULTS ON 
EXIT FROM A ROUTINE WILL BE THE SAME AS FOR THE BASIC MATH PACK. 

*** FLOATING POINT NUMBERS MAY NOT CROSS PAGE BOUNDRIES! *** 

ERRORS SUCH AS ILLEGAL INPUT ARGUMENTS OR NUMERICAL 
OVERFLOW WILL CALL AN INTERNAL ERROR HANDLING ROUTINE 'ERROR' 
THIS ROUTINE WILL STORE THE ADDRESS OF THE 'CALL ERROR* IN A RAM 
LOCATION LABELED 'XMERR' (TWO BYTES) AND RETURN! TO THE CALLING 
SUBROUTINE. ILLEGAL NEGATIVE INPUTS TO ROUTINES LIKE SQUARE 
ROOT* WILL CAUSE THE ERROR FLAG TO BE SET AND THE ABSOLUTE 
VALUE OF THE INPUT WILL BE USED. WHEN THE INPUT CAUSES OR WILL 
CAUSE NUMERICAL OVERFLOW OR UNDERFLOW THE FAC WILL BE SET TO 
+ /- FULL SCALE (APPROXIMATELY +/- 1E38) OR ZERO. 

SOME OF THE ROUTINES CALL OTHER ROUTINES IN THE XMATH 
SYSTEM* SO THE USER SHOULD BE SURE TO INCLUDE THOSE ROUTINES 
WHEN ATTEMPTING TO STRIP OUT AN INDIVIDUAL FUNCTION. 

THE MEMORY ALLOCATION VARIABLES* ROM, ROMK* AND RAM* 
ARE USED IN THE FOLLOWING MANNER. SINCE THE BASIC MATH PACK 
WAS WRITTEN FOR THE 8008* ALL FLOATING POINT NUMBERS USED BY 
BOTH SYSTEMS MAY NOT CROSS PAGE BOuMDKlES. BECAUSE OF THIS 
LIMITATION, THE READ-ONLY SECTION OF XMATH IS DIVIDED INTO TWO 
SECTIONS* ONE FOR PROGRAM* AND ONE FOR CONSTANTS. THE MEMORY 
ALLOCATION VARIABLES ROM AND ROMK CONTROL THESE TWO AREAS WITH 
THE VARIABLE RAM CONTROLLING THE READ/WRITE AREA. TO IMPROVE 
READABILITY AND ALSO TO ALLOW EASY REMOVAL OF SINGLE ROUTINES* 
THE 'ROMK' AND 'RAM' AREAS FOR EACH ROUTINE FOLLOW THE ROUTINE 
IN THE LISTING EVEN THOUGH THEY ARE IN DIFFERENT MEMORY AREAS. 

THE TOTAL PACKAGE REQUIRES SLIGHTLY LESS THAN 2K BYTES 
OF ROM AND SLIGHTLY LESS THAN 256 BYTES OF RAM. THE RAM AREA 
COULD BE REDUCED SLIGHTLY BE COMBINING TEMPORARY STORAGE LOCATIONS 
BETWEEN FUNCTIONS. 

WITH THE EXCEPTION OF TRIGONOMETRIC FUNCTIONS INVOLVING 
ANGLES CLOSE TO .ZERO OR EVEN MULTIPLES OF PI* THE ROUTINES 
ARE ACCURATE TO BETTER THAN SIX DECIMAL PLACES. THIS ACCURACY 
HAS NOT BEEN FULLY TESTED HOWEVER. THE ROUTINES HAVE 
BEEN TESTED WITH RANDOM INPUTS COMPARED TO RESULTS FROM A 
HEWLETT-PACKARD HP- 55 AND SPECIFIC TESTING HAS BEEN 
PERFORMED AROUND THE ALGORITHM SWITCHING POINTS. NO WARRANTY 
IS EXPRESSED OR IMPLIED ON THE PART OF THE AUTHOR OR TEXAS 5-186 

MICROSYSTEMS FOR THE ACCURACY OF THE SYSTEM. 



iny 



MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM **. no bcis 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D 4040 D 8008 B 8080 □ 3000 



(use additional sheets if necessary) 



Floating Point Package for Intel 8008 and 8080 Microprocessor^ 
Add, subtract, multiply, divide, square root 



8008/8080 with 1.5K of memory (RAM/ROM) 



Octal Debugging Routine, 
Ref. No. F-8, Page 9-9 



Address of both operands 
Address of result 



Listing and tape available 
from Intel Corporation. 
Complete report available for 
$4 from: 

National Tech. Info. Service 

US Dept. of Commerce 

5285 Port Royal Road 

Springfield, Va. 22151 

Order No. UCRL-51940 



Output to TTY routines included 
Input from TTY routines included 



Registers Modified: 
All 



RAM Required: 

4 words per operator 

4 words per result +17 word 



ROM Required: 



scratch 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
Intel assembler 



Programmer: 
M.D. Maples/H. Brand 



Company: 

Lawrence Livermore Lab 



Address: Box 808f M/S L403 

Livermore, Ca. 94566 



98-034C 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref No 



BB36 



D4004 8008 (3 8080 Q 4040 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



RNGEN 



RANDOM NUMBER GENERATOR 



TO GENERATE UNIFORM RANDOM NUMBERS BETWEEN AND AN INTEGER LIMIT 
SPECIFIED BY THE USER. A MULTIPLICATIVE CONGRUENTIAL METHOD IS USED. 
THIS METHOD IS BASED ON OVERFLOW. 



8080 MICROPROCESSOR 



PL/M COMPILER TO GENERATE CODING. 

A COMPLETE EXAMPLE OF USE AND CODING GENERATED BY PL/M IS ATTACHED. 



ONE "INTERNAL" PARAMETER MUST BE PASSED TO THE PROCEDURE. THIS IS 
THE UPPER LIMIT OF THE DESIRED DISTRIBUTION. 



FOR EVERY CALL, THE PROCEDURE RNGEN WILL RETURN ONE RANDOM NUMBER 
BETWEEN AND THE UPPER LIMIT. 



Registers Modified: 



RAM Required: 

SEE ATTACHED SHEET 



ROM Required: 



Maximum Subroutine Nesting Level: 
1 



Assembler/Compiler Used: 
PL/M 80 



Programmer: 

K. CHRISTIAN KNUDSEN 



Company: DATA INDUSTRI A/S 

PILESTREDET 75 c; OSLO 3, NORWAY 
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NOTES REGARDING: 



RNGEN 



RNGEN is written in PLM80 for the Intel 8080 microprocessor. 
The program will calculate uniform random numbers in the 
range - (MAX -1), i.e. integers from zero to one less than 
the specified MAX. MAX is assumed to be ADDRESS. 

The user must declare a global variable named SEED and 
initialize this to any odd positive number. This initiali- 
zation is only needed once. If the random numbers should 
be in the 0-1.0 range, a floating point conversion 
routine must be used. 

The complete program, including the main program, uses 
251 bytes. 
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— ooooi r 

00002 1 

-oootfr 



00004 

"00005" 

00006 

oooor 

OOOOI 

^ooo*- 
ooo to 

O 01I 
00012 
00011 
00014 

-oootr 

O0016 
0001 7 
00011 
001 9 



00020 

o*r 



/#REF # NO, BB36 

/•PROGRAM TITLE RNGEN (RANDOM GENER ATOR NU MBER »/ 

T* — RANDOM NUMBER GENERATOR *? 

/• DEFINE GLOBAL VARIABLE! •/ 






DECLARE (5 E ED, W AX y NUH) ADDRESSF 
DEFINE THE RNGEN FUNCTION •/ 



*r 



RNGENl 



AND LOCAL VARIABLES 

PROCEDURE (ARG) ADDRESS! 

DECLARE (AHG,L0C1,L0C2 l"XDUlfX«^ 
L0C1«SEED«899| 

TCCTT 



wr 



~T9 — SE T T HE NE W 

SEED'LOCl ) 

L0C2"L0C1/ARG| 

L0Ca"L 0Cl»L0C2»ARGl 

RETURN LUC2I 

END RNGEN| 

~m EXAMPLE U F T HE 

/« SET SEED • ODD 
-f T HIS SHOULD BE 



RNGEN — WJ 

tout-once onljt» / 



USE OF 
NUMBER 



-Mr 



00022 
00023 
00024 
0002S 
0002* X 

^00027 — t EOT- 

NO PROGRAM ERRORS 



LOOPt 



SEEDel!365j 

SET HAX« ~ ALL R ANDOM mWBEIt *TLL B€ "»/ 

IN THE RANGE • (HAX» 1) •/ 

MAAWIOOt 

NUMl RNGEN(MAX) | 
OUTPUT(0)»NUM| 
GO TO LOOP! /• 



ENDLESS LOOP «/ 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BB37 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 00 8008 IX 8080 



(use additional sheets if necessary) 



RANDOM NUMBER GENERATOR - 8-BIT 

The program reads data from page 0, address FF and 
generates a random number. The new number is writ en 
back in the same location* All numbers except zero are 
generated Zero is a disallowed state and is corrected 
in the program* 

TTT 



TTT Routine 



The program may be called with any number in memory 
page 0. address FF 



Program exits with the pseudo random number in reg- 
ister A and memory, page 0. address FF 



Registers Modified: 
A, B, C f H, 



RAM Required: 

2 Bytes 



ROM Required: 

26 Bytes 



Maximum Subroutine Nesting Level: 




Assembler/Compiler Used: 

MAC80, VER 2.0 



Programmer: 

Joe J* Gentle 



Company: 

Collins Badio Company 



Address: Mail Station 106-171 
Cedar Rapids, Iowa 52402 



98-0348 
5-192 



8880 MRCRO ASSEMBLER, VI. 



PAGE 1 



REF. NO. BB37 

PROGRAM TITLE 8 BIT PSEUDO RANDOM NUMBER GENERATOR 



; 8 BIT PSEUDO RANDOM NUMBER GENE 

; THE PROGRAM READS DATA FROM ADDRESS FF 
; GENERATES A RANDOM NUMBER NHICH WHICH IS WRITTE 
i IN THE SAME LOCATION. ALL NUMBERS EXCEPT ZERO 
;ARE GENENERATED. 2£RO IS A DISALLOWED STATE AND 
i IS CORRECTED IN THE PROGRAM 



0000 


2600 


RANDOM : 


MVI 


H, 00H 


0002 


2EFF 




MVI 


L, 0FFH 


0004 


4C 




MOV 


C, H 


0005 


7E 




MOV 


A, M 


0006 


BC 




CMP 


H 


0007 


C20B00 




JNZ 


SKIP 


r 0A 


7D 




MOV 


A, L 


o>u0B 


47 


SKIP: 


MOV 


B, A 


000C 


E61D 




AN I 


1DH 


000E 


EA1300 




JPE 


PAR 


0011 


0E80 




MVI 


C, 80H 


0013 


78 


PAR: 


MOV 


A, B 


0014 


0F 




RRC 




0015 


E67F 




AN I 


7FH 


0017 


81 




ADD 


C 


0018 


77 




MOV 


M, A 


0019 


C9 




RET 





SET MEMORV POINTERS 

C=0 

GET NUMBER 

IS IT ZERO 

SKIP IF NOT 

SET TO ALL ONES IF SO 

PIT IT IN B 

SAVE BITS 0, 2, 2, AND 4 

JUMP IF PAR I TV EVEN 

C=80H IF PAR I TV ODD 

GET NUMBER AGAIN 

ROTATE IT RIGHT 

SET MSB TO ZERO 

ADD C TO IT 
.STORE NEW NUMBER 
; RETURN 



0000 



END 



; JOE J GENTLE 

; COLLINS RADIO CO 

; JUNE 17, 1975 
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MICROCOMPUTER USERS 
LIBRARY SUBMITTAL FORM 



Ref. Nc 



B638 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



Q 4004 D 4040 D 8008 & 8080 



(use additional sheets if necessary) 



16-Bit Random Number Generator 

The subroutine implements a linear congruential sequence which generates 
16 -bit random numbers. The random numbers produced range from 0000 to 
FFFF with a period less than or equivalent to 2 ** 16. An 8-bit random 
number is available as the upper byte of the 16-bit random number. 

X(N-hl) = (2053*X(N) +13849)mod 2**16 



An INTELLEC 8/M0D 80 with an ASR 33 TTY connected on PORT and 1. 



The INTELLEC 8 /MOD 80 System Monitor can be used for testing the 
subroutine. 



The Stack. Pointer must be initialized to some area in RAM memory. The H 
and L registers must be preset to a location containing the latest random 
number, X(N). 



The new random number 3 X(N+1) , is returned to the location specified by 
the H and L registers. 



Registers Modified: 

None 



RAM Required: 

42H for the subroutine; OAH for the 
stack: 2 for random no. 



ROM Required: 

None 



Maximum Subroutine Nesting Level: 

Stack size greater than OAH 



Assembler/Compiler Used: 

INTELLEC 8 MACRO ASSEMBLER 



Programmer: 

Vito A. Trujillo 



Company: 

Zot Manufacturing Co. 



Address: 

1619 Reed St. 

Tsikea.innrl , CnlnvaA n 80215 



98-034B 
5-195 



S08O MACRO ASSEMBLER. VI. 1 



PAGE 1 



.; REF. NO. BB38 

..PROGRAM TITLE 16 BIT RANDOM NUMBER GENERATOR 



; 16 BIT RANDOM NUMBER GENERATOR 

.: UTILIZES A LINEAR CONGRUENT I AL SEQUENCE 

; OF THE FORM X<N+1> = <fl*x<N> +C> MOD M, N>-8 

J WITH A=2053 <18> AND C=13849 <16> 

.; PERIOD <= 2**16 

; THE STACK POINTER MUST BE INITIALIZED 
.; H AND L MUST POINT TO X<N> 

; THE NEW VALUE X<N+1> IS RETURNED TO LOCATION 
; SPECIFIED BV H AND L 

;NONE OF THE REGISTER CONTENTS ARE DESTROYED 



J. 000 

1000 F5 

1001 D5 

1002 C5 

1003 4E 

1004 23 
1805 46 

1006 2B 

1007 CD1C10 
100A E5 
100B 211A10 
100E CD3910 

1011 El 

1012 71 

1013 23 

1014 70 

1015 2B 

1016 CI 

1017 Dl 

1018 Fl 

1019 C9 
181A 1336 



ORG 



100WH 



RAND 



CNST : 



PUSH 


PSW 


PUSH 


D 


PUSH 


B 


MOV 


C, M 


I NX 


H 


MOV 


B, M 


DCX 


H 


CALL 


AROUT 


PUSH 


H 


LXI 


H, CNST 


CALL 


SBR2 


POP 


H 


MOV 


M, C 


I NX 


H 


MOV 


M, B 


DCX 


H 


POP 


B 


POP 


D 


POP 


PSW 


RET 




DW 


13849 



.; SAVE PSW 
.; SAVE D AND E 
; SAVE B AND C 
; LOAD B AND C 
; WITH X<N> 



CALCULATE X < N > *2053D 
ADD X<N> TO THE RESULT 



SAVE XCN+1> AT PWTR 



RESTORE B AND C 
RESTORE D AND E 
RESTORE PSW 
RETURN TO MAIN PROGRAM 



.; bUBROUT I NE TO CALCULATE X < N > *2053D 
.: ASSUMES XCN> IS CONTAINED IN B AND C 
.; RETURNb X<N>*2853D TO B AND C 



101C 1603 



AROUT 



MVI 



D, 9 



X<N:>*2~'9 
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i_ s sese MACRO RSSEMBLER, VI. 1 



PRGE 2 



101E CD2D10 
1021 CD3910 
1024 1602 
1826 CD2D10 
1029 CD3910 
182C C9 



CRLL 


SBR1 


CRLL 


SBR2 


MVI 


D, 2 


CRLL 


SBR1 


CRLL 


SBR2 


RET 





; X<N>+X<N>*2" '9 

.; 2~"2+ <X<N>+X<N> +2 "9 

; ROD TO :«:•:' N":« 
; RETURN 



102D 97 
102E 79 
102F 17 
1020 4F 

1031 78 

1032 17 
1032 47 

1034 15 

1035 CS 

"136 C32D18 



SBR1 



i FORMS 


<B 1- 


SUB 


R 


MOV 


R, C 


RRL 




MOV 


C, R 


MOV 


R, B 


RRL 




MOV 


B, R 


DCR 


D 


RZ 




JMP 


SBR 



<B AND C>+2"D 



CLEAR R AND CARV 
SHIFT C LEFT 



SHIFT B LEFT 



TEST D=0 

VES, RETURN 

NO, SHIFT AGAIN 



1039 9i- 

103 A 7E 
103B 81 
103C 4F 
103D 23 
103E 7E 
103F 88 

1040 47 

1041 2B 

1042 C9 

0008 



SBR2 



ADDS A 16-BIT NUMBER POINTED TO BV H AND L 
TO THE CONTENT OF B AND C, AND PLACES THE 
SUM IN B AND C 



SUB 



A 



MOV 


A, M 


ADD 


C 


MOV 


C, A 


I NX 


H 


MOV 


A, M 


ADC 


B 


MOV 


B, A 


DCX 


H 


RET 





.; CLEARS A AND CARRV 
;ADD LOW BYTE 

.; ADD HIGH BVTE 
; RETURN 



END 
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MICROCOMPUTER USERS 

LIBRARY SUBMITTAL FORM "ef . no. bb 3 9 



D 4004 D 4040 D 8008 H 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



PL/M HISTOGRAM PROCEDURE AND RANDOM NUMBER GENERATOR 

main program generates an 8 bit shift register sequence 

by xoring the first and last bits and shifting the result 

into the next random numbers bottom bit. 

1000 numbers are generated and then histogrammed. 

histogram procedure sets up an output histogram array 

and then prints the histogram on the tty when commanded 
after printing , the array is not zeroed so that intermediate 
results may be displayed without effect on the final histogram. 

TTY on ports and 1 



Output 
Results 



INTELLEC MONITOR VER 3.0 (tty output routine only) 
PL/M compiler on a host machine 



main program needs a starting value for the random number 
(set to 1 in listing XX=1; ) 

histogram procedure needs 

1) min , max value to be histogrammed 

2) number of histogram bins 

3) data to be histogrammed 

4) control variable (see comments in listing) 



main program prints random numbers as they are generated 
(this can be defeated by pulling the two call print 
cards <in the main program) 

histogram procedure generates a histogram scaled to fit on 
the TTY 



Registers Modified: 

PL/M program 


Assembler/Compiler Used: 

PL/M VER 2.0 


RAM Required: 

800H locations 


Programmer: 

Rex Tracy 


ROM Required: 




Company: 

Colorado State University 


Maximum Subroutine Nesting Level: 

stack size = 8 bytes 


Address: 

Electrical Engineering Dept. 



Ft. Collins , Colo. 80523 98-034B 
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00001 1 

00002 1 /*REF. NO. 8B39 ♦ / 

00J03 1 /♦PROGRAM II r L £ PL/M HISTOGRAM PROCEDURE */ 
00004 1 

< >05 1 

Ov/0 06 1 

00007 1 DECLARE CR LITERALLY 'ODH', LF LITERALLY *0AH', TRUE LITERALLY '1' 

00008 1 FALSE LITERALLY '0'; 
0000 9 1 

00010 1 /* PRINT VIA MONITOR */ 

00011 I PRI\iT$CHAR: PROCEDURE (CHAR); 

00012 2 DECLARE CTAR BYTE; 

00013 2 DECLARE IDCO LITERALLY '3809H'; 
00314 2 GOTO I0CO; 

00015 2 END PRI*T$CriAR; 

00016 1 

00017 1 PRIMTSSTRING: PROCEDUPE(NAME, LENGTH); 
0001b 2 DECLARE NAME ADDRESS, 

00019 2 (LENGTH, I, CHAR BASED NAME) BYTE; 

00020 2 DO I = TO LENGTH-]; 
0002i 2 CALL PR1NTSCHAR (CHAR( I ) ) ; 
00022 3 END; 

0002 3 2 EJD PRlwTSSTRINS; 

00024 1 

00025 1 PR1MTSNUMBER: PROCEDURE ( NUMBER , BASE, CHARS , ZEROSSUPPRESS ) ; 

00026 2 DECLARE N1HBER ADDRESS, ( BASE , CHARS , ZEROSSUPPRESS, I , J) BYTE; 

00027 2 DECLARE TEMP (16) BYTE; 

00028 2 IF CHARS > LAST(TEMP) THEM CHARS = LAST(TEMP); 

00029 2 DO 1 = t TO CHAPS; 

0^0 30 2 J=NUMBER MOD BASE + '0'; 

t 31 3 IF J > '9' THEN J = J + 7; 

00332 3 IF ZEROSSUPPRESS AND I <> 1 AND NUMBER = THEN 

00333 3 J r ' •; 

0C034 3 TEMP(LENGTH(IEMP)-I) r j; 

00035 3 number = number / base; 

000 36 3 END; 

00037 2 CALL PRJNT$STRlwG(.TEMP + LENGTH(TEMP) - CHARS, CHARS) ; 

00338 2 END PRINTSNIJMpER; 

00039 1 /♦ 

00040 1 /* PL/M PROCEDURE TO PRODUCE A HISTOGRAM */ 

00041 1 /* 

00042 1 REX TRACY - 07/29/75 

00043 ! DEPARTMENT OF ELECTRICAL ENGINEERING 

00044 1 COLORADO STATE UNIVERSITY 

00045 1 FT. COLLINS , COLORADO 80523 

00046 1 303-491-5691 

00047 1 ♦/ 
00348 1 /* 

00049 1 ♦/ 

00050 1 HISTOGRAM: PROCEDURE ( MIN , MAX , DTAA , NB1NS , CONTRL) ; 

00051 2 /* MIN = MINIMUM VALUE TO BE HISTOGRAMMED 
00352 2 MAX = MAXIMUM VALUE TO BE HISTOGRAMMED 

00053 2 DTAA = DA1A TO BE PLACED INTO HISTOGRAM 

00054 2 J3INS = NUMBER OF BINS FOR HISTOGRAM 

00055 2 C3.NTRL = 3 THEN ZERO HISTOGRAM OUTPUT ARRAY 

>So 2 1 THEN PRINT CURRENT HISTOGRAM ARRAY 

0j57 2 2 THEN INSERT DTAA INTO HISTOGRAM ARRAY 

00058 2 */ 

00059 2 DECLARE (MIN, MAX, DTAA, NBINS, CONTRL) BYTE ; 
°°OoO 2 DECLARE ARRAY (255) ADDRESS ; 
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OGOol 


2 




00062 


2 




U 6 3 


2 




6 4 


2 




65 


2 




Oujbb 


2 




00067 


2 




00068 


2 




0069 


2 




00 7 


2 




00071 


2 




00072 


2 




00073 


2 /* 


000 74 


2 ♦/ 


00075 


2 


IF 


00076 


2 




7 7 


2 


DO 


0007S 


3 




00079 


4 




00080 


4 




8 1 


3 


EN 


00082 


2 


EL 


00 8 3 


2 




00084 


3 




00085 


3 




8 6 


3 /* 3C 


00087 


3 




8 8 


4 




000b9 


4 




0^ '90 


4 




91 


4 




00092 


4 




9 3 


4 




9 4 


4 




00095 


4 




9 6 


4 




OO097 


4 




00098 


4 




9 9 


4 




00100 


5 




00101 


4 




OO102 


4 




00103 


4 




010 4 


4 




00105 


4 




00106 


5 




10/ 


5 




00108 


6 




10 9 


6 




00110 


6 




001 J I 


5 




00112 


5 




00113 


5 




114 


5 




00115 


6 




16 


6 




Ovnl7 


5 




001 18 


5 




119 


5 




012 


4 





DECLARE U,J,K) BYTE ; 
DECLARE (RANGE, R,PER3IN) ADDRESS; 
DECLARE (V,V1) ADDRESS; 
DECLARE MXN ADDRESS INITIAL (0); 
DECLARE H0R1 DATA C'MJN='); 
DECLARE HDR2 DATA (', MAX='); 
DECLARE HD&3 DATA (', NBINS='), # 
DECLARE HDP4 DATA (', EACH * ='); 
DECLARE HDR5 DATA (' UNITS'); 
DECLARE BDR1 DATA (' .'); 
DECLARE BDR2 DATA (' . '),* 
DECLARE STAR DATA ('*'); 



C3NTRL=U THEN 
/♦ ZERO OUTPUT ARRAY */ 
DO 1=0 TO LASTC ARRAY); 
ARRAY( [)=0; 
MXN=0; 

end; 



d; 

se do; 



IF 
/♦ 

DO; 

cale tut pur ra 



C0NTRL=1 
PRIMT THE HISTOGRAM ♦/ 



COLUMNS 



THEN 



(72-8=64) 




CALL PRINTSSTRING (.nu^^o^iuv^ 
CALL PRINTSSTRING (.( ZR , LF , LF) , 3 ) ; 
DD 1=1 TO 36; 

PRJNTSSTRING(.BDR2,LENGTH(BDR2)); 



CALL 



end; 



t H V , 

CALL PRINTSSTRING ( 
RANGE = MAX -.4 IN; 
PER81N=RANGK/NB] NS; 
DO 1=0 TO NB1NS; 

t c t iui 1 1 i"i *% = n 



(CR,LF) ,2); 



IF I 

do; 



MUD 5=0 THEN 

j=min+i*perbin; 

CALL PRINTSNUMBER (J, 10, 6,1); 

CALL PRINTSSTRING ( . BDR2 , LEN GTH ( BDR2 ) ) ; 

PR1NT$STRING( .BDR 1 , LENGTH (BDR1 )) ; 



CALL 
CALL 



END; 

ELSE 
V = ARRAY(I ); 
DO WHILE V > = V 1 ; 

CALL PRINTSSTRING (.STAR,1); 

v=v-vi; 
emd; 

PRINTSNU^BER (V, 16, 1,1); 



CALL 



IF V <> THEM L a l u KKiiu^niuircp 
PRINTSSTRING ( . ( CR , LF ) , 2 ) ; 



CALL 

E to D ; 
end; 



5-2 J02 



00121 


3 




00122 


3 




00123 


3 




00124 


3 




C 25 


3 




0oi26 


4 




00127 


4 




00128 


5 




00129 


5 




00130 


5 




00131 


5 




00132 


5 




00133 


5 




00134 


4 




00135 


3 




00136 


2 




00137 


2 




00138 




/♦ 


00139 




/* 


00140 






00141 






00142 






00143 




*/ 


00144 






00145 






0014b 






00147 






00148 




ST 


00149 






0"-'5 






»> 51 






00152 






00153 


2 




00154 


2 




00155 


2 




00156 


2 




00 15/ 


2 




00158 


2 




00159 


1 




00160 


1 


/* 


0161 


1 




00162 


1 


EOf 


NO PRO 


SRAM 


ER* 



/* 



ELSE 

IF C0NTRL=2 THEN 
INSERT DTAA INTO CURRENT ARRAY */ 
00; 

IF OTAA<=MAX AND DTAA>=MIN THEN 
DO; 

range=max-min; 

r=dtaa+min; 

perbin=range/nbins; 

j=r/perbin; 

array (j)=apray(j)+1; 

IF ARRA¥(J)>MXN THEN MXN=ARRAY( J) ; 
END; 
END; 
END; 
RETURN; 

END HISTOGRAM; 
MAIN PROGRAM -- PRODUCES RANDOM NUMBERS AND HISTOGRAMS 
RANDOM LUMBERS PRODUCES BY AN 8 BIT SHIFT REGISTER 
SEQUENCE 

THIS SEQUENCE IS GENERATED BY XOR THE TOP AND BOTTOM BITS AND 
SHIFTING THE RESULT INTO THE BOTTOM BIT 



THEM */ 



I ADDRESS; 
(Z,Y,XX) BYTE; 

W BYTE; 

MONIT LITERALLY 



'3800H'; 



DECLARE 
DECLARE 
DECLARE 
DECLARE 
CALL 

xxsl; 

DO 1= 1 

*=xx; 

Z = XX AND IB; 
W=(Z+R0L(XX,1)) AND 
XX=SHL(XX,1 ) OR W; 
CALL PRINT$NUMbER(XX,10,6,l); 

PRINTSSTRING (,(CR,LF),2); 

HISTOGRAM (0 , OFFH , XX, 50 , 2 ) 



HISTOGRAM (0,0,0,0,0); 
TO 1000; 

IB; 



CALL 
CALL 
END; 

CALL HISTOGRAM (0 , OFFH , , 50 , 1 ) 
RETURN TO THE MONITOR */ 
GOTO MONIT- 



ORS 
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iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



BB40 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D 4040 D 8008 XX 8080 



(use additional sheets if necessary) 



RANDOM NUMBER GENERATOR - RANDOM$BITS 
A non-multiplicative pseudo-random number generator. 



No special hardware is required, merely an 8080 processor and memory, 



PL/M compiler 



The calling sequence is CALL RANDM$BITS (POINTER, COUNT) ; 

POINTER is an address variable containing the address of the area in which 

the pseudo-random values are to be placed. 

COUNT is a byte variable containing the number of 16bit pseudo-random 

values which are to be placed contiguously in the area indicated by POINTER 



Registers Modified: 
none 



RAM Required: 

about 300 bytes/ but may be decreased 



ROM Required: 

about 300 bytes, for program storage 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

PL/M VER 3.0 



Programmer: 

KARL AUERBACH 



Company: SYSTEM DEVELOPMENT CORPORATION 



Address: 2500 Colorado Avenue 

Santa Monica, CA, 90406 



98-034B 

5-204 



00001 
00002 
00003 
00004 
V >05 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
^"030 
i ^31 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
^" ^56 
0v057 
00058 
00059 
00060 



/*REF. NfiJ. BB40 *// 
/♦PROGRAM TITLE /RAN 



DOMSBITS */ 



2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 

2 



DECLARE LXTAB LITERALLY '8'; 

DECLARE XTAB(LXTAB) ADDRESS INITIALC 

10480,57948,31935,20673,16110,13245, 

DECLARE XINDEX BYTE IMTIAL(O); 

DECLARE LYTAB LITERALLY '8'; 

DECLARE YTAB(LYTAB) BYTE 

INITIAL (156, 165, 133, 07 1,236, 189, 069, 

DECLARE YINDEX BYTE INITIAL(O); 

DECLARE LVTAB LITERALLY '128*; 

DECLARE VTAB(LVTAB) ADDRESS INITIALC 

20969,39615,58629,16379,54613,42880, 

56941,64952,01547,33703,30613,29975, 

55157,64951,35749,58104,32812,44592, 

50720,13300,25280,64580,34963,07844, 

48501,03574,38917,09250,42971,20562, 

45709,32427,00102,06541,59583,41546, 

62730,32261,02338,04822,43040,12515, 

19746,59846,60 332,08930,46920,51805, 

34191,06004,21597,05269,12682,50501, 

07 896,34925,48280,59894,52924,49106, 

51275,28225,23541,19585,50136,56613, 

47908,60859,05250,57031,35503,40129, 

47625,42579,28672,56047,45960,24120, 

44488,6207 7,50813,52639,37005,29812, 

00265,44247,32286,57676,21059,58581, 

30671,57 352,37554,5 3464,55580,07672, 

RANDM$B1TS: PROCEDURE (POINTER , COUNT) 

/* 

PROCEDURE RANDMSBITS 

THIS PROCEDURE PROVIDES THE 
16 BIT RANDOM NUMBERS. 



56625,22878); 



059); 



12952 
28551 
22851 
62028 
20486 
51900 
25499 
16296 
14951 
46942 
50585 
19233 
35848 
18327 
34994 
19308 



,32307, 
,40719, 
,18510, 
,36086, 
,18062, 
,45578, 
,44437, 
,16834, 
,34405, 
,54238, 
,55230, 
,64239, 
,11059, 
,59685, 
,34698, 
,53214); 



CALLER WITH SOME NUMBER OF 



CALLING SEQUENCE 

CALL RANDM$BITS( POINTER, COUNT); 

POINTER IS THE ADDRESS OF THE AREA WHERE THE 
RANDOM NUMBERS ARE TO BE PLACED. 
COUNT IS A BYTE VALUE CONTAING THE NUMBER OF 
16 BIT RANDOM NUMBERS TO BE PLACED, ONE AFTER 
ANOTHER, IN THfc: AREA DESIGNATED BY POINTER. 

VALUES RETURNED 

A RANDOM BIT STRING. 

SUBPROCEDURES CALLED 
NONE 

GLOBAL VARIABLES REFERENCED 
XTAB 
YTAB 
XINDEX 
YINDEX 
VTAB 

REMARKS 

THE SEQUENCE OF RANDOM NUMBERS GENERATED BY THIS 
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00061 2 PROCEDURE IS REPEATIBLE. E.G. GIVEN THE SAME 

000 62 2 VALUES Iw THE GLOBAL VARIABLES XTAB, YTAB, INDEX. 
0006j 2 YINDEX, AND VTAB, THE SAME RANDOM NUMBER WILL RESULT. 

8b 2 IT IS EXPECTED THAT THESE GLOBAL VARIABLES WILL BE 

00066 2 1NITJALIZED BY SOME OIHER PROCEDURE. THE CONTENTS OF 

00067 2 THE GLOBAL VARIABLES MAY BE ALTERED EXTERNALLY AT AnY TIME 
0006* 2 EXCEPT *HEN THIS PROCEDURE IS IN CONTROL. 

00070 2 THE GENERAL TECHNIQUE USED IS TAKEN FROM 

00071 2 KNUTH, THE ART OF COMPUTER PROGRAMMING VOL. 2 

00072 2 'SEMINUMERICAL ALGORITHMS'. 

00074 2 THE°METHOD USES TWO* SUB-RANDOM NUMBER GENERATORS, X AND Y. 

nrn\n*> -) NFITHER X NOR Y NEED BE VERY GOOD. 

K A TABLE V IS INDEXED BY Y AND THE VALUE THEREIN IS OUTPUT. 

0007/ 2 X IS USED TO REPLACE THE USED CONTENTS OF V. 

00079 2 HERE WE USE AN ADDITIVE RANDOM GENERATOR FOR BOTH 



OOObO 2 X AND Y. THE METHOD IS DESCRIBED IN 'A BETTER 

00081 2 ADDITIVE CONGFUENT1AL RANDOM NUMBER GENERATOR 

00082 2 BY ROGER BURFORD AS PUBLISHED IN DECISION SCIENCE 

00083 2 VOLUME 4 NUMBER 2 APRIL '73. 

00084 2 THIS METHOD USES A FIFO LIST. 

00085 2 A RANDOM NUMBER IS GENERATED BY SUMMING THE CONTENTS 

00086 2 OF THE ELEMENTS OF A FIXED-LENGTH FIFO LIST. 

00087 2 THE LIST IS THEN UPDATE BY REMOVING THE OLDEST 

00088 2 ELEMENT FROM THE HEAD OF THE LIST AND ADDING THE 

00089 2 NEWLY GENERATED RANDOM NUMBER TO THE TAIL OF THE 

0'090 2 LIST. nr „ ,.,-,.„ 

t joi 2 THE FIFO LIST IS IMPLEMENTED USING A TABLE (XTAB 

00092 2 AND YTAB) AND AW INDEX POINTER (XINDEX AND YINDEX). 

00093 2 THE INDEX SHOWS THE CURRENT HEAD AND NEXT AVAILABLE 

00094 2 TAIL. THE INDEX IS ADVANCED AS EACH RANDOM NUMBER 

00095 2 IS GENERATED AND IS WRAPPED AROUND WHENEVER 

0^097 2 I? C IS S IMP0RTANT THAT THESE TABLES BE INITIALIZED SO THAT 

00098 2 THERE IS AT LEAST ONE ODD VALUE IN THEM. 

00099 2 01HER*I1SE IT IS POSSIBLE FOR THE TABLES TO REACH A 

00100 2 DEGENERATE STATE WHERE ZERO IS ALWAYS GENERATED. 

00101 2 

00102 2 */ 

00103 2 DECLARE POINTER ADDRESS; 

00104 2 DECLARE RANDMJ BASED POINTER (0) ADDRESS; 

00105 2 DECLARE TADDR ADDRESS; 
0010b 2 DECLARE COUNT BYTE; 

00107 2 DECLARE (I, J, TBYTE) BYTE; 

00108 2 DO J = TO COUNT-1; 

00109 2 TADDR, TBYTE = 0; 

00110 3 DC I = TO LAST(YTAB); /*SUM THE Y FIFO LIST */ 

00111 3 TBYTE = TBYTE ♦ YTAB (I); 

00112 4 end; „ mm Tf * y 

00113 3 YTAB(YINDEX) = TBYTE; /^DELETE OLD HEAD AND ADD NEw TAIL*/ 
SoiU 3 YINDEX = (YINDEX ♦ 1) AND 07HI /^INCREMENT INDEX MODULO 8*/ 
00115 3 DO I = TO LAST(XTAB); 

lb 3 TADDR = TADDR + XTAB(I); 

Dull 7 4 end; 

00118 3 XTAB(XINDEX) = TADDR; 

00119 3 XINDEX = (XINDEX + 1) AND 07H; «„«*, 

00120 3 TBYTE = TBYTE AND 07FH; /*TBYTE MODULO 128*/ 
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00121 
00122 
00123 


3 
3 
3 


KANDNO(J) = vtab(tbyte:);/*get 
VTAB(TBYTE) = TADDR; /*REPLACE 

end; 


00124 


2 


END RANDM$BITS; 


25 




DECLARE Tl BYTE; 


0U126 
00127 




DECLARE TVALC256) ADDRESS; 
DO Tl = TO 255; 


00128 
00129 




TVAL(Tl) = 0; 
END; 


00130 




DO Tl = TO 127; 


00131 
00132 




CALL RANDM$BITS(.TVAL(T1),1) 

end; 


00133 




DO Tl = 128 TO 200 BY 2; 


00134 
00135 




CALL RANDM$BITS(.TVAL(T1),2) ( 

end; 


0013b 
00137 




CALL PANDM$BITS(.TVAL(202),54); 
EOF 



NEXT 16 BITS OF OUTPUT*/ 
THE USED VALUE*/ 



NO PROGRAM ERRORS 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Dec. 1976 
Ref. BAH 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 D 8080 



(use additional sheets if necessary) 



Factorial of a Decimal Number 

A decimal number in the range 1 to 99 is accepted via register D. Then, 
through the use of add and subtract subroutines (which adjust the numbers 
in decimal), the factorial of that number is calculated. 



A decimal number (1-99) in register D. 
A value will give 99. 



The value is expected from the address contained in register pair H. 
The result is also kept in "SUM" and "SUM + 1" where "SUM" is the least 
significant number (in decimal). 



Registers Modified: 

A, C, D, E, H, L, and Carry 



RAM Required: 

64 bytes 



ROM Required: 




Maximum Subroutine Nesting Level: 
2 



Assembler/Compiler Used: 

8080 MDS Macro Assembler 1.0 



Programmer: 

J.L. Marcel Lalonde 



Company: 

Agriculture Canada 



Address: 



Engineering Research Service, 
Ottawa, Ontario, Canada, K1A 0C6 



98-034B 
5-209 



I Sib 8080 MACRO ASSEMBLER, VI. 1 



PAGE 1 



; REF. NO. BA11 

.: PROGRAM TITLE FACTORIAL OF A DECIMAL NUMBER 



TO CALCULATE 
IN THE RANGE 



FACTORIAL OF A DECIMAL NUMBER 
FROM 1 TO 99. 



FACTR 



0000 


7A 


0001 


323D00 


0004 


97 


0005 


114100 


0008 


12 


0009 


13 


000A 


12 


000B 


CD2900 


000E 


CD1800 


0011 


C20B00 


0014 


214100 


0017 


C9 


0018 


113D00 


001B 


213F00 


001E 


37 


001F 


3E99 


0021 


CE00 


0023 


96 


0024 


EB 


0025 


86 


0026 


27 


0027 


77 


0028 


C9 


0029 


114100 


002C 


213DO0 


002F 


0E02 


£1031 


AF 


0032 


1A 


0033 


8E 


0034 


ii'7 


0035 


12 


003b 


WD 


kik>S ,' 


C8 


0038 


13 


0039 


«i!-£ 



AGAIN 



DSUB: 



DADD 



LOOP 



MOV 


A, D 


STA 


NUMB 


SUB 


A 


LXI 


D, SUM 


STAX 


D 


I NX 


D 


STAX 


D 


CALL 


DADD 


CALL 


DSUB 


JNZ 


AGA I N 


LXI 


H, SUM 


RET 




LXI 


D, NUME 


LXI 


H, SBTF. 


STC 




MVI 


A, 99H 


AC I 


OH 


SUB 


M 


XCHG 




ADD 


M 


DAA 




MOV 


M, A 


RET 




LXI 


D, SUM 


LXI 


H, NUMB 


MVI 


C 2 


XRA 


fl 


LDAX 


D 


ADC 


M 


DAA 




STAX 


D 


DCR 


c 


RZ 




I NX 


D 


I NX 


H 



STORE DECIMAL # 



; CLEAR THE SUM 



.; FIND ! OF # 

i FINISHED WHEN A=O0 

J REG PAIR H= ADDR OF RESULT 



.: TO bUBTRACT 1 FROM A NUMBER 



> SET 100- S COMPLEMENT 

.: OF NUMBER 

.; ^.SUBTRACT 1 FROM IT 

i CONVERT TO DECIMAL 
; STORE RESULT 



TO ADD A NUMBER TO A SUM 

GET SUM 

& NUMBER 

MAKE IT DOUBLE PRECISION 

CLEAR CARRV 



STORE SUM 

DONE WHEN C REG = O 

LOAD NEXT BVTE 
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ISIS 8086 MACRO ASSEMBLER, VI. 1 P RGE 2 

0O2A C33200 JMP LOOP > ADD NEXT 2 BYTES 



003D 


O0 


NUMB : 


DB 


00 


003E 


00 




DB 


00 


0O 3: F 


01 


SBTRA : 


DB 


01 


0040 


00 




DB 


00 


0041 


00 


SUM : 


DB 


00 


0042 


00 




DB 


00 


0000 






END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Dec. 1976 
Ref. BA12 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



Q4004 P8008 (3 8080 □ 4040 



(use additional sheets if necessary) 



BCD UP/DOWN COUNTER 

Implementation of a 2-digit BCD up/down counter. 
See description on source tape. 



1 output port and 1 input pprt. 



None 



Bits 1 and of input port for an up or down 
command, respectively. 



2-digit BCD number to output port and stored in COUNT, 



Registers Modified: 
A,B,C,D 



RAM Required: 

2 (for COUNT and SLOCT) 



ROM Required: 
197 



Maximum Subroutine Nesting Level: 
1 



Assembler/Compiler Used: 

Assembler Ver. 4.1 



Programmer: 

Richard Young 



Company : 

Naval Air Rework Facility Code 323 
Ala m eda, Calif 9 4501 



(415) 869-4472 
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intet 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Dec. 1976 
Ref. BB42 



□ 4004 D 4040 □ 8008 D 8080 



(us* additional shMts if necessary) 



Program 
Title 

Function 



Required 



Required 
Software 



Input 
rare meters 



Output 
Results 



FRACTIONAL MULTIPLY - POSITIVE - 3-BYTE 



Multiplies two signed fractional; 24-bit numbers producing a 24-bit 
fractional answer. 



24-bit number 
i.e., +1/2 



= S2"VV 3 2"\,.2" 23 5 S = 8i«ri 
= 01000000 00000000 00000000 
= 400000H 



MARRY: DW Mult 1; multiplier 
EW Mult 2; multipicand 
m EWMult 3; results 
Csee listing for further description) 



Registers Modified: 

All 



RAM Required: 

10 bytes 



ROM Required: 

333 bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

370/Fortran IV 



Programmer: 

Wtai. James - Dept. 75 



Company: 

Airesearch Mfg. Co. 



Address: 

Torrence, CA. 90509 



98-034B 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Dec. 1976 
Ref. BB43 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 □ 4040 D 8008 !jj) 8080 □ 3000 



(use additional sheets if necessary) 



ALGEBRAIC C0MPARE SUBR0UTINB 

ALGEBRAIC C0MPARE BETWEEN TW0 16 BIT NUMBERS (A & B) 
WHICH ARE REPRESENTED IN SIGNED 2'S C0MPLEMENT 
N0TATI0N. 



N0NE 



N0NE 



A-VALUE IN D & E REGS WITH MSB IN D-REG 
B-VALUE IN H & L REGS WITH MSB IN H-REG, 



C0NDITI0N PLAGS AS P0LL0WS: 

gE *0 SET, CARRY RESET, MINUS RESET, IP A= B. 

ZER0 RESET, CARRY SET, MINUS RESET, IF A> B. 

ZER0 RESET, CARRY RESET, MINUS SET, IF A<B. 



Registers Modified: 

PSW (A-REG & PLAGS) 



RAM Required: 
N0NE 



Assembler/Compiler Used: 

INTELLEC 8/M0D 80 MACR0 ASSMB, 

VERSI0N 1. 

Programmer: 

C. Messerle 



ROM Required: 
31 BYTES 



Maximum Subroutine Nesting Level: 
N0NE WITHIN CPR 



Company: 
INTECO 



Address: 
HARRIS0N, 0HI0 



98-034C 
5-214 



IbIS 8QS0 MACRO ASSEMBLER, VI. 1 
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; REF. NO. BB43 

; PROGRAM TITLE ALGEBRAIC COMPARE SUBROUTINE 



SUBROUTINE CPR 08/04/76 

ALGRBRAIC COMPARE BETWEEN TWO 16 BIT NUMBER'-. 
< A & B > WHICH ARE REPRESENTED IN SIGNED 
2- S COMPLEMENT NOTATION. 

ENTER WITH A- VALUE IN D&E REGS - MSB IN D-REG 
B- VALUE IN H*L REGS - MSB IN H-REG. 

RETURNS CONDITION FLAGS AS FOLLOWS: 

ZERO SET - CARRV RESET - MINUS RESET. IF A = B 
ZERO REbET - CARRV SET - MINUS RESET, IF A > B 
ZERO REbET - CARRV RESET - MINUS SET, IF A < B. 

AFFECTS PSW •:. A-REG & FLAGS >. 



0.S00 



ORu 



0.S00H 



0300 


7A 


0301 


AC 


0302 


F20B03 


0305 


7C 


0306 


C680 


0308 


C31A03 


030B 


7B 


030C 


95 


030D 


C21603 


0310 


7A 


0311 


9C 


0312 


C8 


0313 


17 


0314 


3F 


0315 


C9 


0316 


7A 


0317 


9C 


0318 


17 


0319 


3F 


031A 


CO 


031B 


IF 



CPR 



LIKE: 



NZERO 



BELOW 



MOV 

XRA 

JP 

MOV 

AD I 

JMP 

MOV 

SUB 

JNZ 

MOV 

SBB 

RZ 

RAL 

CMC 

RET 

MOV 

SBB 

RAL 

CMC 

RNZ 

RAR 



A, D 

H 

LIKE 

A, H 

80H 

BELOW 

A, E 

L 

NZERO 

A, D 

H 



A, D 
H 



LIKE SIGNS 



NO. AFFECT CARRV AND 
MINUS FLAGS WITH B- VALUE. 

PERFORM A-B. 



A-B = O? 

NO. AFFECT CARRV WITH COMP 

OF bIGN OF DIFFERENCE. 

.; FINISH A-B. 

•> AFFECT CARRV WITH COMP 
•OF SIGN OF DIFFERENCE. 

.; RESET ZERO FLAG. 
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031C C681 AD I 81H 

031E C9 RET 

0000 END 



intel 



Program 
Title 

Function 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. # BB41+ 



D 4004 D 4040 □ 8008 E 8080 □ 3000 



(use additional sheets if necessary) 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



ARC TANGENT (DOUBLE PRECISION) FOR 8080 - DPATN 

Performs double precision calculation of the arc tangent for an 
unsigned sixteen bit number less than unity. Also included with 
this package are routines for double precision addition, multi- 
plication and division. 



Any 8080 based microcomputer system with 233 bytes free in PROM 
and 9 bytes free in RAM. 



Mb other software required except the calling program. Note that 
the calling program has access also to the double precision 
arithmetic routines DPADD, DFMPJT, and DPDIV. 

For DPATN, the sixteen bit augment is assumed to be stored in 
register pair B-C with the MSB at bit 7 of register B and the LSB 
at bit position of register C. The sixteen bit number is required 
to be a. positive binary fraction with the binary point at the 
extreme left. For DPADD, DFMPY and DPDIV, see details at beginning 
of each one of these subroutines. 



Results from DPATN, DPADD, DPMPY and DPDIV are all returned in 
register pairs B-C. 









Registers Modified: 

All Registers 


Assembler/Compiler Used: 

V0RTEX MCS 8080 (Varian 73) 


RAM Required: n j^^^^ 

(9 variables, 
2 for Stack)' 


Programmer: 

Dr. Barry B. Woo 


ROM Required: 

233 bytes 


Company: 

Boeing Aerospace Company 


Maximum Subroutine Nesting Level: 
One (l) 


Address: P. 0. Box 3999 

Seattle, Wash. 98l2l» 



5-216B 



98-034C 



Ref. # BBU4 



METHOD: The rational approximation below is used: 

2 h 



tan^x = a 0*V +*2 X 

b„ + b^X 2 + h x U 



, < X< 1 



Computation is shortened by one multiplication 
step if nesting is done as follows : 

V ^l\ + V ?) 

Here, six multiplications and one divide is 
required. Assuming a 2 MHz 8080 clock, the time 
for a multiply is 1.3 MS and a divide is 2.1 MS, 
thus giving a total of approximately 9.9 MS for 
the 16 bit arc tangent calculation. 

In hexadecimal, the constants for the above 
approximation are given by 



b n = *n = 75 AUH 



a x = 1+EGEH 



a = OUFEH 



b ? = 1UB8H 



1. The author is indebted to Paul S. Smith of BAC for this 
rational function approximation which has a precision 
exceeding 2 ppm over the full range of X (0,l). The 
coefficients in decimal are a Q = b * b = O.U5953U, 

s x = 0.306366, a 2 = 0.019501, b 2 * 0.080933. 
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Test 
Program : 



The following test program was ran to vnlidate the contributed 
program DPATN. Note that the argument X input is Loaded 
directly in the BC register pair, while the output (THETA) is 
stored in memory locations 6113, 6llU as well as in register 
pair BC. 



0000 


31FF00 


LXI SP, OFFH ; 


Initialize Stack 


0003 


010080 


LXI D, 8000H 


Load X 


0006 


CDOOUl 


Call DPATN 


.Call tan -l x 


0009 


C30900 


S: JMP S 


;Stop 



The various test cases are tabulated below: 





1 


2 


1 
3 


U 




T fooou 

**&* 10005 


00 
80 


8F 
02 


66 
E6 


FF 
FF 




Output i 611 ? 
(6llU 


BD 
76 


8E 
02 


99 
BB 


OF 
C9 


6 h 
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Ref. # BA13 



JnSit^ " INTEL * USER'S LIBRARY SUBMITTAL FORM 

D4004 D4040 H8008 D8080 D3000 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



ARC. TAN 2 Subroutine 



The function is to generate the angle 6 = arctan y/x in any 
of the four quadrants. 



Intel 8080 and 400 bytes of memory chips 



none 



x, a fractional number, in DE 
y, a fractional number, in HL 



6, a fractional number scaled by 180° (tt), will be in HL 
1. If x = -1. = 8000H, 6 = ii^. 



2. If y = -1. = 8000H, = 



3. Ohterwise, 6 = tan " x 

180° 



180 

270' 

180' 



Registers Modified: 
All 



RAM Required: 
8 bytes 



ROM Required: 
371 byt es 



Maximum Subroutine Nesting Level - 
4 



Assembler/Compiler Used: 



16K ISIS 8080 Assembler, V 1.0 



Programmer: 
Linn Zien 



Company: 
Naval Weapons Center 



Address: 



City: 
China Lake 



State: 
California 9 3555 



1» Inifl Corporation, 1976 
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98 034 C 



iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. # BC16 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 (2 8080 Q 3000 



(use additional sheets if necessary) 



Floating Point Interpreter (FPIP) 

Interprets floating point psuedo-op codes and arguments. 
This results in a significant reduction in memory space 
required for floating point code and also simplifies the 
coding of floating point operations. Additional useful 
floating point operations and conversions are provided 
including tangent, degree/radian conversions, log 10, exp 10, 
y to the x power, inverse subtraction, negate the accumula- 
tor, square, and simple I/O handlers for BCD I/O floating 
point routines. 

No special hardware is required. 
Provisions are made for a TTY. 



Floating Point Package (Refs. BC1, BC2, BC4) 
TTY routines if using TTY. 



No parameters are required in the registers. See description 
for discussion of floating point pseudo-operation codes. 



Upon exit from the interpreter, registers A-D contain the 
last floating point accumulator (FAC) , and the condition 
bits reflect the status of the FAC and the overflow flag. 



Registers Modified: 
All 



ram Required: to 4 additional 
over floating point package 



ROM Required: 77H minimum, 149H 
for complete package 



Maximum Subroutine Nesting Level: 2 levels 
plus floating point package 



Assembler/Compiler Used: 

8080 Macro Assembler 



Programmer: 

D. W. Lovse 



Company: 

Univ. of Illinois 



Address: 76 Roger Adams Lab 
Urbana, IL 61801 



98-034C 



5-222 



Floating Point Interpreter . 

This floating point interpreter was designed for the Intel 
User's Library Floating Point Package (Ref . BCl, BC2, BC4 ). Its 
purpose is to reduce the program space required for floating point 
operations and also simplify code writing itself. The amount of 
memory space saved is at least 1/2 to 2/3 compared to the direct 
single-call method. 

The interpreter, when implemented, is an integral part of the 
floating point package. It is called as a subroutine. Code 
following the call is interpreted as floating point pseudo-instruc- 
tions which are decoded by the interpreter which generates the 
necessary floating point package subroutine calls. The address of 
arguments requested by instructions such as floating add, subtract, 
divide, etc. , is stored as an address constant word directly 
following the pseudo instruction. Thus these are effectively 
three-byte pseudo instructions. 

Floating point operations such as CHS, ZRO, SIN, etc., operate 
directly on the floating accumulator (FAC) and thus need be only 
single-byte pseudo-instructions. An "exit" pseudo-instruction is 
provided to terminate interpreting. The interpreter returns program 
control to the location directly following the exit pseudo-instruction 
After an exit, all condition bits reflect the status of the FAC and 
overflow flag, and the FAC is in registers A, B, C, D. 

Codes can be easily added-to or deleted-from the interpreter. 
The mam key to this is the floating point instruction entry point 
table (see listing) . The floating point interpreter entry point 
table contains the entry of the floating point operations. 
Entries are indexed by this pseudo-op code value (0 to 7 FH) . The 
length of the table is contained in the dataword "INSL" . Pseudo- 
codes equal-to or greater-than INSL are treated as NOPs by the 
interpreter. Entries which require arguments or multiple subroutine 
calls are indicated by entry point names containing @. Entries with- 
out <§ signs are invariably single-byte pseudo-instructions and a 
subroutine call is directly made to the corresponding floating 
point routine. For operations requiring arguments such as the 
floating add, the interpreter fetches the argument address and puts 
it in the H,L registers before calling the requested floating point 
routine. In all cases, the floating point routine returns to the 
interpreter, except for the exit routine. 

A special description is required for the floating point 
package two-float/fix conversions, and BCD I/O operations. The 
address argument for FLOAT points to memory space where five bytes 
of data are stored. The first byte is the scale factor. The next 
four bytes contain the 32-bit fixed word. For the FIX operation the 
argument also points to a five-byte memory. The first byte is the 
scaling factor desired. The next four bytes are where the "fixed" 
32-bit word is deposited. The INPUT and OUTPUT routines are single- 
byte pseudo-instructions with internal handlers written into this 
version for console terminal I/O. The buffer used is in the same 
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-2- 



floating point scratch RAM used by the elementary functions. This 
INPUT also provides for a rubout code which restarts the input 
operation after echoing a backslash. 

Extended functions beyond the basic elementary function 
floating point package are included in this interpreter. Others 
could easily be added to reduce code space requirements. Floating 
point subroutines can be written in the interpretive mode since the 
interpreter can be recursively called. Examples included are the 
TANGENT and SQUARE functions. Extended functions provided in this 
package include Y to the X power, where Y is the FAC and X is an 
argument. Also included are LOG base 10 and EXP base 10 which 
operate directly on the FAC. RAD and DEG are conversion routines 
to change the FAC from degrees to radians and back respectively. 
Another routine, ISUB, provides inverted subtraction where the FAC 
is subtracted from the argument. FNEG negates the sign of the FAC. 
SQU and TAN functions are performed respectively on the FAC, and 
are examples themselves of interpretive code. Macros are used 
to generate these pseudo-instructions, or, the pseudo-instructions 
could be made permanent op-codes in the user's assembler or cross 
assembler. A suggested naming scheme follows: 



Floating Point Pseudo-Instructions 



FEXIT 
FSUB arg 
FDIV arg 
FSTR arg 
FOUT 
FIDIV 
FCOS 
FCOSH 



FINIT 


FADD arg 


FGET arg 


FMPY arg 


FCHS 


FABS 


FZRO 


FIN 


FFIX arg 


FLOAT 


FSQRT 


FSIN 


FATAN 


FSINH 


FEXP 


FLOG 



Extended Set: 



FYX arg 
FDEG 

FISUB arg 
FNOP 



FEX10 


FLG10 


FRAD 


FSQU 


FNEG 


FTAN 
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Ref. # BB47 



insite iNTEL * USERS l|B Rary submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 H8048 □ 8080/8085 □ 8086 □ Other 



8748 or 8035 



None 



R23 = 16 bit dividend 
A = 8 bit divisor 



R34 = 16 bit result 
R2 = 8 bit remainder 



Registers Modified: 



A, R0, 2, 3, 4, 5 



RAM Required: 



None 



ROM Required: 



47 Bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



(us* additional ahaata If nacaaaary) 



8048 - DIV — DIVISION ROUTINE 
R34 = R23/A = remainder 



Programmer: 



H. Serindat 



Company: 



Societe ECA 



Address: 



Z.I. Toulon-EST 



City: 



83087 Toulon-Cedex 



State: 



France 



6/79 
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S888 MACRO ASSEMBLER, VI. 1 



PAGE 1 



.; REF. NO. BB45 

.; PROGRAM TITLE MLT±2< 12X12 MULTIPLY!:- 



; MLT12 

.; 12X12 MULTIPLV. 

; MULTIPLICAND IN D, E. MOST SIGNIFICANT 4 BITS 

;OF MULTIPLIER IN A. LEAST 8 BITS IN C. 

.ANSWER IN A, H, L. 



0800 


87 


MLT12 


.ADD 


A 


.;GET HI 4 BITS OF 


0881 


87 




ADD 


A 




0002 


87 




ADD 


A 




0003 


87 




ADD 


A 




0004 


210000 




LXI 


H, 


.; SET UP SUBROUTINE 


0007 


0604 




MVI 


B, 4 




0009 


CD13O0 




CALL MULT 




000C 


79 




MOV 


A, C 




800D 


0608 




MVI 


B, 8 




"H0F 


CD13O0 




CALL MULT 




W012 


C9 




RET 






0013 


29 


MULT 


: DAD 


H 


.: SHIFT PARTIAL RESUL 


0014 


17 




RAL 




.; ROTATE MULTTIPLIER 


0015 


D21B00 




JNC 


DEC 


.; TEST MULTIPLIER AT 


8818 


19 




DAD 


D 


;ADD MULTIPLICAND TO 


8819 


CE0O 




AC I 





.: ACCUMULATE HI ORDER 


881B 


05 


DEC 


: DCR 


B 


.: DECREMENT BIT COUNT 


881C 


C2130O 




JNZ 


MULT 




881F 


C9 




RET 






8888 






END 


MLT12 





MULTIPLIER READV. 



LEFT ONE PLACE. 
LEFT TO CARRV. 
CARRV. 

RESULT. 

RESULT. 
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Ref. # BAM 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 H8080 D3000 □ Other. 



(use additional sheets if necessary) 



DECIMAL MULTIPLY SUBROUTINE (N1 x N2 BYTES) - MBCD 

2N1 digits by 2N2 digits decimal muitiply for unsigned inteqers qivinq 
a 2(N1 + N2) digits results. 



None 



None 



Memory MTR (N1 bytes) contains multiplier (least significant byte in 
lower adress) 

Memory MTD (N2 + I bytes) contains multiplicand (least significant 
byte in lower adress, higher adress = 0) 



- Memory area: see fig. 1 



Memory RES (N1 + N1 bytes) 
contains product 



MRT 

MTD 

KMTD 

RES 



LR 
IND 



N1 bytes 


N2 + 1 


N2 + 1 


N1 + N2 


1 


2 


fig. 1 

1 



low. ad 



high. ad 



Registers Modified: 
A,B,C,D,E,H,L 


Programmer: 
Renault C. 


RAM Required: 
(2N1 + 3N1 + 5) bytes 


Company: 
Latecoere 


ROM Required: 
157 bytes 


Address: 

135 rue de Periole 


Maximum Subroutine Nesting Level: 
2 


City: 

Toulouse 


Assembler/Compiler Used: 
MDS Assembler vers. 1-0 


State: 
France 



© Intel Corporation, 1976 

4/77 
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I- S 8080 MACRO ASSEMBLER, VI. 1 



PAGE 1 



8828 



8828 
8823 
• 8826 
0028 
002B 
002C 
002D 
002E 
8831 
8833 
8834 
8835 
8836 
"139 
ti83B 
883 E 
8841 
0044 
0047 
0048 
004B 
004C 
004D 

0050 
0051 

0052 
0053 
0054 
0056 
0057 
005A 
005D 

0060 
0061 

0064 
0066 
0069 
006C 
-V6E 
J6F 

0070 
0071 



118782 

218A02 

0602 

CDB400 

AF 

r' r' 

12 

210D02 

0606 



W5 

C23388 
8E81 
218888 

2A1382 

118482 

19 

3A1282 

B7 

7E 

CA5488 

8F 

0F 

0F 

0F 

E60F 

B9 

C27500 

2A1302 

110D02 

19 

110A02 

0683 

CDA888 

D27580 

3E00 

8E 

d. t' 
i*' i'° 



REF. NO. BA14 
PROGRAM TITLE MBCD 



MBCD 



MBCD 



ra; 



UN : 
DEUX : 

TROIS 



QUAT 



•JEAN 



ORG 20H 
Nl BVTES * N2 BVTES DECIMAL MULT I PL V SUBROUTINE 



LXI 

LXI 

MVI 

CALL 

XRA 

MOV 

STAX 

LXI 

MVI 

MOV 

I NX 

DCR 

•JNZ 

MVI 

LXI 

SHLD 

LHLD 

LXI 

DAD 

LDA 

ORA 

MOV 

•JZ 

RRC 

RRC 

RRC 

RRC 

AN I 

CMP 

•JNZ 

LHLD 

LXI 

DAD 

LXI 

MVI 

CALL 

JNC 

MVI 

ADC 

DAA 

MOV 

I NX 



D, MTD 

H, KMTD 

B, N2 

TBDH 

A 

M, A 

D .; 

H, RES .; 

B, CN1+N2: 
M, A 

H 
B 
RAZ 

C, 1 

H, i 

IND 

IND 

D, MTR 
D 

LR 

A .; 

A, M 

QUAT 



MOVE MTD INTO KMTD 



CLEAR 
CLEAR 
+1 



MSB 
RES 



IN MTD 
AND LR 



AND KMTD 



OFH 

C 

CINQ 

IND 

D, RES 

D 

D, KMTD 

B, N2+1 

ABDHD 

CINQ 

A, 

M 

M, A 
H 



CLEAR INDEX 



FLAG Z AFFECTED 
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I_ i. 8080 MRCRG ASSEMBLER, VI. 1 



PRGE 2 



0072 


DRbU00 


0075 


211302 


0078 


34 


0079 


3E03 


00 i-'b 


BE 


00 7 C 


C24100 


00 7 F 


0C 


0080 


210R02 


0083 


110702 


008 b 


0603 


0088 


CDR800 


008B 


3E0R 


80 3D 


B9 


008E 


C23B00 


0091 


3R1202 


0094 


B7 


0095 


C0 


0096 


3C 


0097 


321202 


00 9 R 


110R02 


00 9 D 


210702 


jR0 


0603 


00R2 


CDB400 


00R5 


C33900 



I NQ 



00R8 


flF 


00R9 


lfl 


00RR 


8E 


00RB 


iil ••" 


00RC 


i - ' (' 


00RD 


13 


00RE 


cl'jl- 


00RF 


05 


00 B0 


C2R900 


00B3 


C9 



00B4 1R 

" C JB5 77 

•iiB6 12 

06B7 23 

00B8 65 



RBDHD 



RBDHD 



TBDH 



TBDH : 



J'C 


TERN 


lx i 


H, IND 


I NR 


M 


MV I 


R, Nl 


CMP 


M 


JNZ 


TRGIS 


I NR 


c 


LXI 


H, KMTD 


LXI 


D, MTD 


MV I 


B, N2+1 


CRLL 


RBDHD 


MV I 


R, 0RH 


CMP 


c 


JNZ 


DEUX 


LDR 


LR 


GRR 


R 


RNZ 




INR 


R 


STfl 


LR 


LXI 


D, KMTD 


LXI 


H, MTD 


MV I 


B, N2+1 


CRLL 


TBDH 


•JMP 


UN 



K=K+1 



LR=1 LEFT 



THIS •-.IIBRnHTINE RDDS CB> BVTbb OF MD '-MEM RRER 
pniNTED BV D, E> TO <B> BVTES OF MH CMEM RRER POINTED 
BY H, LX WHEN RETURN, CH, L::- RND '-D, E> POINT ON 
FOLLOW I NG RDDRESS 



XRR 


R .; CLEHh 


LHKKY 


LDRX 


D 




ADC 


M 




DRR 






MOV 


M, R 




I NX 


D 




I NX 


H 




OCR 


B 




•JNZ 


RBDHD+1 




RET 






THIS S 


JBROUTINE MOVES <E 


:C- BYTES OF MD INTO 


WHEN 


RETURN, <H, L> RND 


■::D, E> POINT ON 


FOLL 


3WINQ RDDRESS 




LDRX 


D 




MOV 


M, R 




I NX 


D 




I NX 


H 




DCR 


B 





MH 
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I- 5 S0S0 MACRO ASSEMBLER, VI. 1 



00B3 C2B400 .JNZ TBDH 

00BC 09 RET 



PAGE 



0200 ORG 200H 

; TEST PROGRAM USING MBCD SUBROUTINE 

i MULTIPLICATION* 71532 * 367 = 26252244 



0003 






Nl 


EQU 


~- 


0002 






N2 


EQU 


^ 


0200 


CD2i 


000 




CALL 


MBCD 


0203 


76 




i MEMORV 


HLT 
AREA 




0204 


321! 


507 


MTR : 


DB 


32H, 15H, 


0207 


679: 




MTD : 


DB 


67H, 3 


6209 








DS 


1 


020A 






KMTD : 


DS 


-:• 


020D 






RES: 


DS 


5 


0212 






LR: 


DS 


1 


0213 






I ND : 


DS 


2 


0000 








END 





LEFT/R I GHT FL I P-FLOP 
INDEX 
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Ref. # BD1 



falsity INTEL< USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 08080 D3000 □ Other. 



(use additional sheets if necessary) 



HISTOGRAM 



This program will plot a histogram graph of numeric data between the 

limits of 00 to 100. It may be useful for graphical analysis of grade 

distributions, signal quality, probability or any function which requires 
analysis of incidence of data. 



Teletype of other printer. 



TTY routines for input and output, should mask out parity on input, and 
not effect other registers. Input and output data value should be' 
through accumulator. 

Input data is ASCII, the following commands are accepted: 

numbers to 99, and h (for hundred) is accepted as data to be 
graphed. RETURN on TTY enters data and prompts the next entry. 



"~" typed on the TTY will delete the pending" entry ~ 

~ print the histogram on the TTY. 



"p" typed on the TTY wil 



Graph of incidence of input numeric data, 



Registers Modified: 
ALL 



RAM Required: 
389 



ROM Required: 



Maximum Subroutine Nesting Level: 
7 



Assembler/Compiler Used: 

MlCrokit a^Pmhl pr v/or ] p 



Programmer: 

Robert A. Mikkelson 



Company: 

System Services 



Address: 

12120 Rochester Avenue 



City: 



West Los Ange I es 



State: 

California 90025 



© Intel Corporation, 1976 
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Ref. # BD2 



■llSite INTEL * "SERS LIBRARY SUBMITTAL FORM 

□ 4004 D4040 D8008 H8080 D3000 □ Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



_ (use additional sheets if necessary) 



ASCII to EBCDIC and EBCDIC to ASCII converters 

To convert ASCII coded data to EBCDIC and vice versa. 



None 



None 



The accumulator holds the byte to be converted, 



The accumulator holds the converted byte. 



Registers Modified: 
A 



RAM Required: 
411 Bytes (Decimal) 



ROM Required: 
None 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
INTEL 



Programmer: 
W. R. Ott 



Company: 

Applied Data Communications 



Address: 

1509 East McFadden Avenue 



City: 



Santa Ana 



State: 

California 92705 



© Intel Corporation. 1976 
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Ref.# BA15 



insitg" INTEL * users library submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 08080 D3000 □ Other. 



(use additional sheets if necessary) 



Conversion of Scientific to easily readable notation. 

By adding leading or trailing zeros and/or a decimal point, this 
routine converts a BCD number expressed in Scientific notation 
C4 digit, Sign, exponent, exponent sign) into a format that is more 
easily read by a mathematically unskilled operator. 



None 



None for the program itself, 
of the MDS system. 



The test program uses the CO subroutine 



Enter subroutine with register pair H L pointing to desired location 
for the first character in the output buffer. Registers C D E 
are loaded with the BCD number (see details at beginning of program). 
This subroutine will accept the output of the FBCD subroutine in 
program BC-5 directly. 



A buffer is created with up to eleven ASCII characters, terminated by 
an EOT character. The first character is in location pointed to by 
H, L. The EOT character is at a higher memory location. 



Registers Modified: 
Al I 



RAM Required: 
12 bytes for output buffer 



ROM Required: 
157D bytes 



Maximum Subroutine Nesting Level: 2 (3 including 
the CALL to this subroutine). 



Assembler/Compiler Used: 
MDS Macro Assembler 



Programmer: 

B. A. Robinson 



Company: 

Du Pont of Canada Ltd. 



Address: 

P.O. Box 5000 



City: 
Kingston 



State: 

Ontario, Canada 



K7L 5A5 



© Intel Corporation, 1976 
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.: REF. NO. BA15 

i PROGRAM TITLE "CERN" CONVERSION OF SCIENTIFIC TO 

i EASILY READABLE NOTATION 

; **+***:+:**••+:*:+:*:+:***^f:*+*!♦::+:++Jt:**:+^^f::+:+*^t:*:+:4: 

i *****CONVERSION OF SCIENTIFIC TO***** 

> ******EASILY READABLE NOTATION******* 

; ********:+: + :+:*:+::+:**++.+.+***:+:*+ + +++* ++st:H:*!fe 
} 

■> 77-03-15 

;THIS ROUTINE CONVERTS A BCD NUMBER IN REGISTERS 
;C, D AND E TO AN ASCII OUTPUT BUFFER, TERMINATED 
.; BVAN 'EOT - 

i 

i ENTER THE SUBROUTINE DIRECTLV FROM THE FBCD 

.; ROUTINE OF PROGRAM BC-5, OR OTHER PROGRAM WITH 

i THE CD AND E REGISTERS. ASSIGNED AS FOLLOWS: 

.= REGISTER BIT 

• : 7 6 5 4 3 2 10 

• : C SN SE EH EH EL EL EL EL 

• ; D X4 X4 X4 X4. X3 X3 X3 X3 

i E X2 X2 X2 X2 XI XI XI XI 

i WHERE SN IS THE SIGN OF THE NUMBER <0 IMPLIES 
i PLUb;', SE IS THE SIGN OF THE EXPONENT, EH IS 
:. THE TWO BIT BCD UPPER EXPONENT DIGIT, EL IS 
.; THE BCD LOWER EXPONENT DIGIT, AND X4 TO XI 
; ARE THE BCD MANT I SSA AS X. XXX. 
i ENTER WITH REGISTER PAIR HL POINTING TO THE 
;DEbIRED LOCATION FOR THE FIRST ASCII CHARACTER. 
; OUTPUT BUFFER APPEARS IN THIS AND HIGHER 
:• MEMORY LOCATIONS. 

i 

; TYPICAL OUTPUT BUFFER FORMATS ARE: 
.; > lO EXP. 39 
.: -> 10 EXP. 07 

.: -1234000 
.: 123400 
.; -12340 
; 1234 
.; -123. 4 
; 12. 34 
; -1. 2s4 
; . 1234 
i TO 

> -. 000001234 

.: NUMBERS LESS THAN 10 EXP. -07 ARE LOADED AS O. OOO. 
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PflUE 2 



luuu 

180© 
1081 
1803: 
1886 

1083 

10OB 
108D 

188E 

188F 

1811 

1814 

1815 

1817 

1819 

181C 

181E 

181F 

1828 

1822 

1822 

1824 

182? 

1829 

102A 



E688 

CA0B10 

362D 

C38D10 

3620 

79 

E648 

CA5A18 

79 

E63F 

FE87 

D25318 

362E 



E60F 

4F 

8D 

CA2D18 

3:638 

C32318 



182D 86F F 
102F ?A 
1038 CD4310 

1033 7A 

1034 CD4710 
183? ?B 
1^38 CD4310 
103B 7B 
183C CD4710 
183F 3:684 

1041 23 

1042 C9 



1043 
1044 
1045 
1846 
1847 
1849 
104B 
10 4 C 
104D 
104E 
184F 



IF 

IF 

IF 

IF 

E68F 

F630 



fib 
CO 
362E 



CERN 



SPACE 
CERN1 
EXNEG 



CERN2 



STDE1 
STDE2 



STE 



EOT IN 



SHSTR 



MKSTR 



ORG 
MOV 
AN I 
JZ 
MVI 
,TMP 
MV I 
I NX 
MOV 
AN I 
JZ 
MOV 
AN I 
CPI 
JNC 
MV I 

I NX 

MOV 

AN I 

MOV 

DCR 

JZ 

MVI 

I NX 

J MP 

MV I 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

MOV 

CALL 

MV I 

I NX 

RET 

RAR 
RAR 
RAR 
RAR 
AN I 
OR I 
MOV 
I NX 
DCR 
RNZ 
MVI 



1OO0H 

A, C 

88H 

SPACE 

M, -' 

CERN1 

M, ' 

H 

A, C 

48H 

EXP 

A, C 

3FH 

87H 

SMALL 

M, -. 

H 

A.. C 

8FH 

C, A 

C 

ST DEI 

M, -8 

H 

CERN2 

B, 8FFH 
A, D 
SHSTR 
A, D 
MKSTR 
A, E 
SHSTR 
A, E 
MKSTR 
M, 84H 
H 



8FH 
38H 
M, A 
H 
B 

M, -. 



FETCH EXP. 
MASK 

-SIGN LOADED IN BUFFER 

SPACE LOADED 

IS EXPONENT -VE? 

Z IMPLIES EXP. POSITIVE 
; IS EXP. <>6? 



NUMBER TOO SMALL. bET TO 8 
LOAD A DECIMAL FT 

MASK SIGNS 



STORE <C> ZEROS IN BUFFER 



STORE '::DE>, NO DECIMAL PT. 

STORE '::DE>, WITH DECIMAL PT. 

STORE MSD FROM D IN BUFFER 

STORE LSD 

STORE MSD FROM E IN BUFFER 

STORE LSD 

PLACE EOT ON TOP OF BUFFER 



CONVERT -::A> TO ASCII & bTORE 



CONVERT TO HbCII 



DECREMENT COUNTER 

NZ IMPLIES NO D. P. WANTED 

INSERT D. P. 
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1051 23 

1052 C9 

1053 AF 

1054 4F 

1055 5? 

1056 5F 

1057 C30E10 

105A 79 

105B E63F 

1S5D 4F 

105E FE03 

1060 D26810 

1062 3C 

1064 47 

1065 C32F10 

1068 FE07 
106A D27D10 
106D CD2D10 

1070 2B 

1071 0D 

1072 0D 

1073 0D 
1874 CA3F10 

1077 3630 
1079 23 
107R C37310 

10 70 C5 

107E 119410 

1081 0E0A 

1083 EB 

1084 7E 

1085 EB 

1086 7? 
108? 23 

1088 13 

1089 0D 
108A C28310 
108D CI 
108E 59 
1U8F 06 FF 
1091 C33710 



SMALL : 



EXP 



LARGE 



CERN3 : 



AWFUL 



CEPN4 



I NX 


H 


RET 




XRA 


A 


MOV 


C, A 


MOV 


D, A 


MOV 


E, A 


JMP 


EXNEG 


MOV 


A, C 


AN I 


3FH 


MOV 


C A 


CPI 


03H 


JNC 


LARGE 


INR 


A 


MOV 


B, A 


JMP 


STDE2 


CPI 


07H 


JNC 


AWFUL 


CALL 


STDE1 


DCX 


H 


DCR 


c 


DCR 


c 


DCR 


c 


JZ 


EOT IN 


MVI 


M, -0- 


I NX 


H 


JMP 


CERN3 


PUSH 


B 


LXI 


D, MSG1 


MVI 


C, 10D 


XCHG 




MOV 


R, M 


XCHG 




MOV 


M, A 


I NX 


H 


I NX 


D 


DCR 


c 


JNZ 


CERN4 


POP 


B 


MOV 


E, C 


MVI 


B, OFFH 


JMP 


STE 



i NUMBER TOO SMALL. SET TO 
i AND RECYCLE 



; EXP. IS POS. 
; IS EXP. >3 



.: NC IMPLIES EXP. >3 

; SET COUNTER TO <EXP. +1> 
.= STORE <DE> WITH D. P. 

; EXP. >3 

.; NC IMPLIES EXP. >6 

.: STORE NUMB. 

i WIPE OUT EOT 

; COMPUTE <EXP. -3> 



Z IMPLIES EOT SHOULD 

BE RE- INSERTED 

STORE (EXP. -3> ZEROS 



.; NUMBER TOO LARGE 

.; TRANSFER MSG TO BUFFER 

; SET CC>= NUMB. OF CHAR. 



bTORE EXP. ON BUFFER 



1094 3E203130 nSGl 
1098 20455850 
109C 2E20 



DB 



10 EXP 
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0000 



END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref.#BD3 



□ 4004 D4040 □ 8008 □ 8080 □ 3000 *8048 



(use additional sheets if necessary) 



Program 
Title 

Function 



•Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



L 



DTMF TO HEX CODE 

CONVERTS 2-0F-7 DTMF CODE TO HEXADECIMAL. 



NONE 



NONE 



2-0F-7 DTMF IN THE ACCUMULATOR, 

BIT 7 6 5 4 3 2 10 
ROW 4 3 2 1 

COLUMN 3 2 I 



RETURNS HEXADECIMAL EQUIVALENT IN THE ACCUMULATOR FOR ZERO 
THROUGH NINE. 

RETURNS 0AH FOR *. 

RETURNS 0BH FOR #. 

RETURNS 80H IF INPUT IS INVALID. 



Registers Modified: 

A, R7 



RAM Required: 

NONE 



ROM Required: 

40H BYTES 



Maximum Subroutine Nesting Level: 

ZERO 



Assembler/Compiler Used: 

ISIS - I I 8048, VI. 2 



Programmer: 

FRANK FAFF 



Company: 

ATLANTIC RESEARCH CORP. 



Address: 



5390 CHEROKEE AVE. 
ALEXANDRIA, VA. 22314 



8/8/77 



98-034C 
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PRGE 



LOC 



■ EQ 



0000 


BF00 


8882 


1213 


8884 


IF 


8885 


IF 


8886 


IF 


8887 


3215 


8003 


IF 


00 0R 


IF 


000B 


IF 


000C 


5217 


000 E 


~' '"• *"' cu 


0010 


2380 


0012 


O Ji- 


0013 


3210 


0015 


5210 


0017 


7210 


0019 


IF 


001fl 


9224 


001C 


IF 


001D 


B226 


001F 


IF 


0020 


D228 


"'822 


0410 


J24 


B210 


8826 


D210 


0028 


FF 


8029 


83 


002R 


9232 


002C 


B239 



10 
11 

12 
13 
14 
15 
16 
17 
18 
19 
28 
21 



24 C 



■i!b 



29 



SOURCE STATEMENT 

REF. NO. BD3 
PROGRRM TITLE DTMHEX 



+ :+::+::+::+::+::+::+::+::+::+::+::+::+::+::+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+::+: :+::+::+::+::+::+::+::+ : :+::+:H.::+::+:^ :> |.:> 1 , + + : +{ 4 : : +s>f:+jf : >H+ 

DTMHEX 
:+::+::+::+::+::+: + :+::+: : +: :+::+::+::+::+::+::+::+::+: : +: :+: :+: :+: :+: :+: :+: :+: :+: 1+::+::+::+::+::+:*:+::+::+: + :+:^^^^:+:*^:^:^:^:^:^^^:^ 

CONVERTS 2-0F-7 DTMF CODE TO HEX. 
RETURNS 80H IF DTMF IS INVRLID. 

EXPECTS DTMF CODE IN R 
RETURNS HEX IN R 
USES R7 



INPUT FORMAT 

BIT 7 6 

ROW 

COLUMN 3 



2 10 

3 2 1 



2 1 



34 



■5 ERROR 



S3 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
58 
51 
52 



'TMHEX: MOV 
JB0 
INC 
INC 
INC 
-TBI 
INC 
INC 
INC 
JB2 
JB3 
MOV 
RET 
JB1 
JB2 
,TB3 
INC 
JB4 
INC 
JB5 
INC 
JB6 
JMP 
JB5 
•JB6 
MOV 
RET 
JB4 
JB5 



ROW1 
R0W2 
R0W3 



COL1 
C0L2 
C0L3 

R0W4 : 



R7, #0 

ROW1 

R7 

R7 

R7 

R0W2 

R7 

R? 

R7 

R0W3 

R0W4 

R, #80H 

ERROR 

ERROR 

ERROR 

R7 

COL1 

R7 

C0L2 

R7 

C0L3 

ERROR 

ERROR 

ERROR 

R, R7 

STRR 
ZERO 



CLERR HEX VRLUE 

•JUMP IF ROW 1 TONE PRESENT 

OTHERWISE RDD 3 TO HEX VALUE 



•JUMP IF ROW 2 TONE 



ROW 4 IS SPECIAL 
ERROR VALUE IF NO ROW 

ERROR IF MORE THAN ONE ROW 



ADD ONE TO HEX VALUE 
FOR EACH COLUMN 



ERROR IF NO COLUMN 

ERROR IF MORE THAN ONE COLUMN 

GET HEX VALUE 
AND RETURN 
TONE = * 
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IS IS- 1 1 MCS-4S/UPI-41 MRCRO RSSEMBLER, 



'2. 



PHbE 



.-JC 


OBJ 


- 


EG! 




SOURL 


:E ■=. 


1 H 1 EMEN 


002E 


D23D 




53 




J'B6 




NUMB 


0030 


0410 




54 




J MP 




ERROR 


0032 


B210 




55 


STRR : 


■JB5 




ERROR 


8034 


D218 




56 




TB6 




FRROR 


0036 


230R 








MOV 




R, #ORH 


0038 


o_s 




58 




RET 






0039 


D210 




59 


ZERO : 


JB6 




ERROR 


003B 


27 




60 




CLR 




R 


003C 


i~\~'. 




61 




RET 






003D 


230B 




62 


NUMB : 


MOV 




R, #OBH 


003F 


y - : 




63 
64 




RET 
END 






USER S 


t'NBOLS 














COL1 


0024 


C0L2 


0026 


C0L3 


68 


28 D 


ROWS 


0017 


R0W4 


002R 


STRR 


00 


32 Z 


RSSEMBLV COMPLETE, 


NO 1 


ERRORS 









RETURN 0RH IF 1 ONE 



.; RE TURNS 00 IF 
.; RETURN OBH 1 1- 



"ERU 
! LINE - tt 



dttihez 00OU 
ZERU 0U zy 



ERRl.iR 001.0 



NUMB 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref.#BA16 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 □ 8008 □ 8080 □ 3000 (x) MCS-48 (use additional sheets if necessary) 



8048 BCD MULTIPLY 

(Decimal Multiply 6 digit x 4 digit or less) 

The program is doing a multiply between a six digit and a 
four digit BCD value. The six digit value is situated in 
registers 2 to 4 in order of LSD to MSD and the four digit 
value in registers 5 and 6. The result is a ten digit number 
situated in registers 12 to 16 in order of LSD to MSD. Each 
register contains two BCD digits. 



Prompt 48 



In a Prompt 48 you can use system calls and by this you get 
a calculatorlike operation. 



As input parameters we have one six digit value in registers 
R2 to R4 and another four digit value in registers R5 and R6 
These registers contain the value in the format of two four 
bit BCD digits in order of LSD to MSD. Result registers R12, 
R13, R14, R15 and R16 has to be cleared before operation. 



The result is situated in registers R12 to R16 in order of 
LSD to MSD. Each register contains two four bit BCD digits 



Registers Modified: 
RO to R7 and R12 to R16 



RAM Required: 

None 



ROM Required: 
61 bytes 



Maximum Subroutine Nesting Level: 
None 



Assembler/Compiler Used: 

ASM 48 



Programmer: 

Karl-Magnus Heinrichs 



Company: 

Vaaka-Nvholm 



Address: 

Oskelantie 1 



Finland 
00320 Helsinki 3b 



98-034C 
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PAGE 



LOC OBJ 



SEQ 



SOURCE STATEMENT 



; REF. NO. BA16 

; PROGRAM TITLE BCD-MUL 6 DIGIT X 4 DIGIT 



0060 



9 

10 
11 

12 
13 
14 
15 
16 
17 



J******************************************************. 



* BCD-MUL 6 DIGIT X 4 DIGIT 

*****:+:***+************^: + : +}| ,^ :+: ^ +++ ^ ::+::+!:+::4c:+:!+::+: .4,^^ :+ .^ 



ORG 



60H 



0060 A5 


18 


SUB : 


CLR 


FI 


0061 FD 


19 




MOV 


A, R5 


0062 37 


20 




CPL 


A 


363 0301 


21 




ADD 


A, #1 


#065 E668 
0067 B5 


dS 




•JNC 
CPL 


NOBO 
FI 


0068 57 


24 


NOBO : 


DA 


A 


0Q€S 37 


25 




CPL 


A 


006A 0300 


26 




ADD 


A, #0 


006C 57 


27 




DA 


A 


006D AD 


'-■''Pi 




MOV 


R5, A 


006E 7683 


29 




JF1 


BORROW 


0070 97 


30 


MUL : 


CLR 


c 


0071 BF03 


31 




MOV 


R7, #3 


£1073 B802 


3-2 




MOV 


R0, #2 


0075 B912 


ss 




MOV 


Rl, #18 


0077 FI 


34 


AD I : 


MOV 


A, @R1 


0078 70 

0079 57 


35 

36 




ADDC 
DA 


A, GR0 
A 


007A 18 


37 




INC 


RO 


007B Al 
007C 19 


3:9 




MOV 
INC 


©Rl, A 
Rl 


007D EF77 


40 




DJNZ 


R7, AD I 


007F F691 


41 




,TC N 


CARRV 


0081 0460 


42 




JMP 


SUB 


0083 FE 


43 
44 


BORROW : 


MOV 


A, R6 


0084 37 


45 




CPL 


A 


"•■385 0301 


46 




ADD 


A, #1 


487 F69B 


47 




JC 


WAIT 


0089 57 


48 




DA 


A 


008A 37 


49 




CPL 


A 


008B 0300 


50 




ADD 


A, #0 


008D 57 


51 




DA 


A 


008E AE 


52 




MOV 


R6, A 



i CLEAR FLAG 1 
; LOAD ACCUMULATOR WITH R 
.: COMPLEMENT ACCUMULATOR 
.: SUBTRACT ONE FROM ACCUM 
.; JUMP ON NO BORROW TO "N 
.: SET FLAG 1 

.; DECIMAL ADJUST OF ACCUM 
.: COMPLEMENT ACCUMULATOR 
.: PREPARE ACCUMULATOR FOR 
; DECIMAL ADJUST OF ACCUM 
; LOAD BACK ACCUMULATOR T 
.-JUMP IF FLAG 1 IS SET T 
.: CLEAR CARRV BIT 
; LOAD R7 WITH 3 FOR ADDR 
; LOAD RO WITH 2 FOR ADDR 
; LOAD Rl WITH 18 FOR ADD 
; LOAD ACCUMULATOR WITH 
.; ADD ACCUMULATOR TO MULT 
; DECIMAL ADJUST OF ACCUM 
; INCREMENT REGISER FOR 
; LOAD ACCUMULATOR INTO R 
; INCREMENT Rl FOR NEW RE 
; DECREMENT R7 AMD IF NO 
;JUMP IF CARRV BIT TO "C 
; JUMP TO "SUB" FOR NEXT 
:LOAD ACCUMULATOR WITH R 
; OF BORROW 

: COMPLEMENT ACCUMULATOR 

: SUBTRACT ONE FROM ACCUM 

i JUMP ON BORROW TO "WAIT 

; DECIMAL ADJUST OF ACCUM 

i COMPLEMENT ACCUMULATOR 

PREPARE ACCUMULATOR FOR 

DECIMAL ADJUST OF ACCUM 

LOAD BACK ACCUMULATOR T 

5-254 



I SIS- 1 1 MCS-48/UPI-41 MRCRO AbbEMBLER... V2. 







PRGE 



OBJ 



;eq 



008F 


0470 


0091 


cL l'' 


00*32 


F7 


0093 


61 


0094 


57 


0095 


Rl 


0096 


19 


0097 


F691 


0099 


0460 


009B 


049B 



54 
55 
56 
57 
58 
59 
60 
61 
62 
63 



SOURCE STATEMENT 



CflRRV 



WRIT: 



JMP 


MUL 


CLP. 


R 


RLC 


R 


HDD 


R, @R1 


DR 


R 


MOV 


©Rl, R 


INC 


Rl 


,TC 


CRRRV 


•JMP 


SUB- 


•JMP 


WRIT 


END 





.; .JUMP TO "MUL" 

; CLEAR ACCUMULATOR 
ROTATE ACCUMULATOR LEFT 
ODD ACCUMULATOR TO PESU 
DECIMAL ADJUST OF ACCUM 
LOAD BACK ACCUMULATOR 
INCREMENT Rl FOR NEXT R 
JUMP ON "CARRY" TO "CAR 
JUMP TO "SUB" FOR NEXT 
RESULT IN REG. R12, R13, 



USER SYMBOLS 

AD I 0077 BORROW 008.* 



CARRY 0091 



MUL 



0070 



NOBO 0068 



SUB 



ASSEMBLY COMPLETE, NO ERRORS 
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Ref.#BB46 

INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 9£080 D3000 □ Other. 



(use additional sheets if necessary) 



Hex to ASCII Conversion 

To convert a string of hexadecimal bytes in memory (string length variabh 
up to 255) into an ASCII character string in memory for display or trans- 
mission. 



None 



Subroutine call with input parameters initialized. 

Stack with pointer SP initialized to support subroutine call/return 

1- Hex input string in memory 

2- Address of input string inH,L - registers 

3- Address of output buffer in D / E - registers 

4- Input byte count in B - register 

(Note: Output buffer must be at least twice as long as input string) 



1- Output ASCII string in memory(output buffer) 

2- Input string in memory unchanged 
3- B - register = 

4- H,L registers point I byte past last input byte 

5- D,E registers point I byte past last character in output buffer 



Registers Modified: A ... _ „ „ 

A,H,L,D,E,B 


Programmer: 


Mike Lippman 


RAM Required: 

Depends on input string lenqth 


Company: 


Fluke Trendar 


ROM Required: 

49 bytes 


Address: 


630 Clyde Ave. 


Maximum Subroutine Nesting Level: 

2 


City: 


Mt. View 


Assembler/Compiler Used: 

ASM80 VI.O 


State: 


Calif. 94043 
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REF. NO. BB46 

PROGRAM TITLE HEX TO ASCII CONVERSION 



SUBROUTINE HTOA 

CONVERTS A HEX INPUT STRING IN MEMORY TO AN 

IN MEMORY. INPUT STRING LENGTH IS VARIABLE 

INPUT PARAMETERS: 

STARTING ADDRESS OF INPUT STRING IN H, L 
STARTING ADDRESS OF OUTPUT BUFFER IN D, E 
INPUT STRING BYTE COUNT IN B REGISTER 

OUTPUT PARAMETERS: 

ASCII CHARACTER EQUIVALENT OF INPUT STRING 

TO RIGHT) IN OUTPUT BUFFER 
INPUT STRING UNCHANGED 
B REGISTER = 9 

H, L REGISTERS POINT 1 BYTE PAST LAST INPUT 
D, E REGISTERS POINT 1 BYTE PAST LAST ASCII 
SUBROUT I NE NEST I NG : 
2 LEVELS 



AbCII CHARA 
UP TO 255 B 

REGISTERS 
REGISTERS 



HEX DIGI 



BYTE 
CHARACTE 



0000 


7E 


0001 


E6F0 


0002 


OF 


0004 


OF 


0005 


OF 


0006 


OF 


0007 


CDIDOO 


000A 


12 


000B 


13 


000C 


7E 


000D 


E60F 


000F 


CDIDOO 


0012 


12 


0013 


13 


0014 


ciJ- 


0015 


05 


0016 


78 


0017 


FEOO 


0013 


C20000 


001C 


CS» 



HTOA 



MOV 


A, M 


AN I 


0F0H 


RRC 




RRC 




RRC 




RRC 




CALL 


CONV 


STAX 


D 


I NX 


D 


MOV 


A, M 


AN I 


OFH 


CALL 


CONV 


STAX 


D 


I NX 


D 


I NX 


H 


DCR 


B 


MOV 


A, B 


CPI 





JNZ 


HTOA 


RET 





INPUT BYTE 
LEAST SIGN IF 



J LOAD HEX 

;MASK OUT LEAST SIGN IF HEX DIGIT 

; RIGHT 

• JUSTIFY 

i MOST SIGN IF 

i HEX DIGIT 

i CONVERT MOST SIGN IF HEX DIGIT OF BYTE T 

STORE RESULT IN OUTPUT BUFFER 

INCREMENT OUTPUT BUFFER PTR 

RE-LOAD HEX INPUT BYTE 

MAbK OUT MOST SIGN IF DIGIT 

CGNVERb LEAST SIGN IF HEX DIGIT OF BYTE 

STORE RESULT IN OUTPUT BUFFER 

INCREMENT OUTPUT BUFFER PTR 

INCREMENT INPUT STRING PTR 

DECREMENT INPUT BYTE COUNTER 

LOAD INPUT BYTE COUNTER 

CHECK FOR 

LOOP FOR NEXT INPUT BYTE IF COUNT NOT 

RETURN TO MAIN PROGRAM WHEN DONE 



SUBROUTINE CONV (. CALLED BY HTOA) 

CONVERTS A SINGLE HEX DIGIT <RIGHT .JUSTIFIED IN A REG > 

AbCII CHARACTER < RETURNED IN A REG) 

CON VERS I ON ALGOR I THM : 

INPUT DIGIT 0-9 "OR" 30H INTO DIGIT TO FORM ASC 

INPUT DIGIT A-F MASK OUT MSB OF DIGIT, SUBTRACT 



5-258 



T_ S 3886 MACRO ASSEMBLER, VI. 1 



PAGE 2 



001D 


FE0A 


.; r 
CON' 


001F 


DA2A88 




8822 


E6F7 




0024 


3D 




0025 


F648 




0027 


C32C80 




002A 


F638 


NUM 


002C 


E23108 


PAR 


002F 


F6S8 




0031 


C9 





RESULT, AND OR WITH 
NOTE: CONV PRODUCES ODD PAR I TV AS SHOWN, FOR EVEN 
JPE 



46H TO 
PAR I TV 



FORM 
CHAN 



CPI 
JC 
AN I 
DCR 
OR I 
JMP 
OR I 
JPO 
OR I 
RET 



18 

NUM 

8F7H 

A 

48H 

PAR 

30H 

*+5 

88H 



18 



IS HEX DIGIT 

•JUMP IF 0-9 

CLR MSB OF HEX DIGIT 

SUBTRACT 1 FROM RESULT 

OR 40H TO COMPLETE ASCII CHAR 

GO TO SET PAR I TV 

OR WITH 20H TO COMPLETE ASCII CHAR 

IF PAR I TV ALREADY ODD, SKIP NEXT LINE 

SET ODD PARITY 

RETURN TO SUBR HTOA 



0800 



END 
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Ref.#BC18 



■ ■ ■ TM 

insite 



INTEL USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/40 D8008 08080 D8048 D8085 D3000 D Other. 



— (use additional sheets if necessary) 



FLOATING POINT PACKAGE - OPTIMISED ULTRA FAST 

Performs Floating Point addition, subtraction, multiplication, 
division, square and square root. (16 Bit mantissa, 8 Bit exponent) 
square root time typically 1ms. 



SBC 80/10 or simi lar 



SBC 80/10 P Monitor or similar 



ASCII String entered fron console forms F.P. numbers in B, D & E 
and A, H & L. Numbers in ASCII are terminafed by ',' or 'RET 1 
and operators '+» «*• »/' 's' 'r» used to select appropriate 
subrout i nes. 



F. P. number is returned in B, D & E and converted to an ASCII 
string for 0/P to console. 



Program offered 
on diskette only. 



Registers Modified: 

ALL RFHISTFRS HSFn 



RAM Required: 

1 BYTE (PUIS STACK) 



ROM Required: 

1Q55 BYTFS 



(INC. TFST ROUTINE 



Maximum Subroutine Nesting Level: 

5 LEVELS (10 BYTFS) 



Assembler/Compiler Used: 

MA CRO ASSEMBLER VFR. 



Programmer: 

S. N. COPF ft S F FVANS 



Company: 

OXFORD UNIV ERS I TY 



Address: 



City: 



OFPT, OF ENGINEERING SCIENCE 



PARKS ROAD OXFORD 



State: 

ENGLAND 



'~j Intel Corporation. 1976 



8/78 



98 034 D 
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Ref.# BC19A 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/4040 D8008 08080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



"AS2FL" - ASCII STRING TO INTEL FLOATING POINT NUMBER 

Converts ASCII String (variable length) to floating point number 
in floating point record (FPR). 

MDS 800 with ISIS II Linking Loader 



aqm^ !! FPAL ^ IBM ' ,n+el " LINK " & "LOCATE", PL/M80 Compiler or 
ASM80 Assembler 



Pass Pointer to 18-Byte 'FPR' in B, C Registers 
Pass Pointer to String in D, E Registers. 
String Format: 
mu ±xxxxx.xxxx Uu E±xx# 

whfrf. - n^+; i c Revised 2/78 
WHtKt: u - Optional Spaces 

± = Sign (' + ' Optional) 

x = ASCI I Characters 

# = Terminating Characters (See comments in listing) 

PL/M Ca I I : "Call AS2FL (.FPR, .STR)" 
NOTES : 

(1) Has not been compiled as "REENTRANT". 

(2) May be added to "FPAL.LIB" if desired. 

(3) For users without PL/M-80, request version which is pre-l inked 

with PLM80.LIB (AS2FL.0BX) Otherwise, order FL2AS.0BJ 



BC19A is offered as 
one program with BC19B. 



Registers Modified: 
ASSUME ALL 



RAM Required: 
VARIABLES: 24 



STACK: 4 



ROM Required: 
CODE: 814 



Maximum Subroutine Nesting Level: 
1 Level after entry 



Assembler/Compiler Used: 
PL/M-80 V3.0 



Programmer: 
BART EVANS 



Company: 
DURRUM INSTRUMENT 



Address: 

1228 Titan Way 
City: 

Sunnyvale 



State: 
CA 



© Intel Corporation, 1976 

A/7R 



98-0340 
5-262 



FILE = :Fi:AS2FLLST 

PL/M-86 COMPILER ***** ASCII STRING TO FLOATING POINT ***** 8926JAN89 PAGE 1 

ISIS-II PL/M-88 VI 8 COMPILATION OF MODULE AS2FL 

OBJECT MODULE PLACED IN : Fl : AS2FL. OBJ 

COMPILER INVOKED BV: PLM88 :F1:AS2FLPLM DATE ( 8926 JAN89) 

*TITLEC ***** ASCII STRING TO FLOATING POINT *****') 

1 AS2FL: DO; 

2 1 FLOAD: PROCEDURE <A,B) EXTERNAL; 

3 2 DECLARE (A,B) ADDRESS; 

4 2 END FLOAD; 

5 1 FSTOR: PROCEDURE (A,B) EXTERNAL; 

6 2 DECLARE (A,B) ADDRESS; 

7 2 END FSTOR; 

8 i FADD: PROCEDURE <A,B) EXTERNAL 

9 2 DECLARE (A,B) ADDRESS.; 
18 2 END FADD; 

11 1 FMUL: PROCEDURE (A,B) EXTERNAL; 

12 2 DEaARE (fi,B> ADDRESS; 

13 2 END FMUL; 

14 1 FDIV: PROCEDURE (A,B) EXTERNAL, 

15 2 DECLARE (A,B) ADDRESS, 

16 2 END FDIV; 

1? 1 FLTDS: PROCEDURE (A,B) EXTERNAL; 

18 2 DEaARE (A,B) ADDRESS; 

19 2 END FLTDS; 

/******^******************************^ w ^ 

28 1 AS2FL: PROCEDURE (FPR$ADR, STR$ADR> PUBLIC; 

21 2 DECLARE (FPR*ADR, STRIADR) ADDRESS; 

22 2 DEaARE FPR BASED FPRIADR (18) BYTE, 

23 2 DEaARE STRING BASED STRIADR (128) BYTE, 

/* ROUTINE HILL "READ" A STRING OF ARBITRARY LENGTH, 
STOPPING WHEN AN "ILLEGAL", OR TERMINATING, CHARACTER 
OCCURS. A TERMINATING CHARACTER IS ALWAYS ANY 
CHARACTER EXCEPT '+', •-', '. ', 'E'", '8' THRU '9', ALTHOUGH 
'+', '-'> '. '> AND -E '■ MAY TERMINATE IF THEY APPEAR WHERE 
THEY SHOULD NOT. 

EXAMPLES: 
'i*' 

'-1. 888*' 

■' 12345. 67891234*' 
1 E -23*' 

NOTES: 

(1) SPACES AHEAD OF NUMBERS ARE IGNORED. 

(2) NUMBER IS ASSUMED TO BE POSITIVE UNLESS A MINUS SIGN EXISTS. 

2/6/78 r: o. . 



Fl/M-80 COMPILER ***** ASCII STRING TO FLOATING POINT ***** e926JflN89 PAGE 2 

<3) NO SPACES RLLOWED BETWEEN DIGITS. 

(4) EXPONENT IS ASSUMED TO BE POSITIVE UNLESS A MINUS SIGN EXISTS. 

V 

24 2 DECLARE 

TRUE LITERALLY 'iliiiiiiB', 
FALSE LITERALLY '88WAW0B', 

DIG (4) BYTE, 

HUM (4) BYTE, 

FRAC (4) BYTE, 

DIV (4) BYTE, 

TEN (4) BYTE DATA (6, 6, 28H, 4iH>, 







EXP BYTE, 






POS$NUN BYTE, 






POS$EXP BYTE, 






I BYTE; 


25 


2 


DIGIT: PROCEDURE; 


26 


3 


DIG(8> = STRING(I) - '8'; 


27 




DIG(l), DIGC2), DIGCO = 0; 


28 


3 


CALL FLTDS (. FPR, . DIG), 


29 


3 


CALL FSTOR (. FPR, . DIG); 


28 


~? % 


END DIGIT; 



31 


2 


32 


2 


33 


3 


34 


c 


35 


2 


36 


2 


37 


2 


38 


2 


39 


2 



DO I = 8 TO 3; 

NUM(I), FRflC<I>, DM I) = 0; 
END, 

DIVC0) = i; 

CALL FLTDS (. FPR, . DIV); 

CALL FSTOR (. FPR, . DIV); 

EXP = 8; 

POS$NUM, POSIEXP = TRUE, 

I = 0; 

48 2 CHRR1: /* DETERMINE SIGN OF MANTISSA */ 

IF STRING(I) = ' ' THEN DO; 

I = I+i, 

GO TO CHfiRi; 

END; 
ELSE IF STRING(I) = '-' THEN DO; 

POSINUM = FALSE; 

I = I+i; 

END; 
ELSE IF STRING(I) = '+' THEN DO; 

I = I+i; 
53 3 END; 

CHAR2: /* BRANCH ON '. " OR 'E'; ELSE COMPUTE MANTISSA */ 



2/6/78 ^_ 7A , 



42 


3 


43 


3 


44 


3 


45 


2 


47 


3 


48 


3 


49 


3 


50 


2 


52 


3 



56 


3 


57 


3 


58 


3 


59 


2 


61 


3 


62 


3 


63 


3 


64 


2 


66 


3 


67 


3 


68 


2 


S3 


3 


78 


3 


71 


3 


72 


3 


73 


3 


74 


3 


75 


3 


76 


3 



n 


i 


88 


3 


81 


3 


82 


3 


83 


3 


84 


3 


85 


3 


86 


3 


87 


3 


88 


3 


89 


3 


90 


2 


92 


3 


93 


3 


94 


3 


95 


2 



98 


3 


99 


3 


100 


3 


101 


2 


103 


3 


104 


3 


105 


3 


106 


2 


108 


3 


109 


3 



PL/M-80 COMPILER ***** rsch smm T0 FLOfiTING po INT ^ 



IF STRING(I) = '. ' THEN DO; 

I = 1+1, 

60 TO POINT; 

END; 
ELSE IF STRING(I) = ' ' OR STRING(I) = 'E' THEN DO; 

I = 1+1; 

GO TO EXPO; 

END; 
ELSE IF STRING(I) < '0' OR STRING(I) > '9' THEN DO; 
GO TO FINfiL; 
END; 
ELSE DO; 

CALL DIGIT; 

CALL FLOflD (. FPR, . NUtt); 

CflLL FMUL (. FPR, . TEN); 

CALL FflDD (. FPR, . DIG); 

CflLL FSTOR (. FPR", . NUN); 

I = 1+1; 

GO TO CHAR2; 

END; 

7? 2 POINT: /* COMPUTE FRACTIONAL PART */ 

IF STRING(I) >= '0' AND STRING(I) <= '9' THEN DO; 
CALL DIGIT; 

CALL FLOAD (. FPR, . DIV); 

CALL FMUL (. FPR, . TEN); 

CALL FSTOR (. FPR, . DIV); 

CALL FLOAD (. FPR, . DIG); 

CALL FDIV <. FPR, . DIV); 

CALL FADD (. FPR, . FRAC); 

CALL FSTOR (. FPR, . FRAC); 
I = 1+1; 
60 TO POINT; 
END; 

ELSE IF STRINGCI) = " OR STRING(I) = 'E' THEN DO; 

I = 1+1; 

60 TO EXPO; 

END; 
ELSE 60 TO FINAL; 

% 2 EXPO: /* COMPUTE EXPONENT */ 

IF STRINO(I) = ' ' OR STRING(I) = 'E' THEN DO; 

I = 1+1; 

60 TO EXPO; 

END; 
ELSE IF STRINO(I) = '-' THEN 00; 

POSIEXP = FALSE; 

I = 1+1; 

END; 
ELSE IF STRINGCI) = '+' THEN DO; 

I = 1+1; 

END; 

DO WHILE STRING(I) >= '0' AND STRINGCI) <= '9'; 



2/6/78 
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PL'H-30 COMPILER 



***** ASCII STRING TO FLOATING POINT ***** 8926JAN89 PAGE 



Hi :< EXP = <i8*€XP) + (STRING(I) - '8'); 

112 3 I = I+li 

Hi 3 END; 

114 2 FINfiL /* COItflNE AND PERFORM NORMALIZATION */ 

CALL FLOAD (. FPR, . NUM)i 

115 2 CALL FAOO (. FPR, . FRAP.- 

H6 2 IF NOT POSINUM THEN FPRX17) = 198000096; 

118 2 IF POSIEXP THEN DO I = i TO EXP; 

120 3 CALL FMUL (. FPR, . TEN); 

121 3 END; 

122 2 ELSE DO I = 1 TO EXP; 

123 3 CALL FDIV ( FPR, . TEN); 

124 3 END; 

125 2 END AS2FL; 

126 1 END AS2FL; 



MODULE INFORMATION: 

CODE AREA SIZE = 032EH 814D 
VARIABLE AREA SIZE = 8818H 24D 
MAXIMUM STACK SIZE = 9984H 4D 
186 LINES READ 
8 PROGRAM ERROR(S) 

END OF PL/M-80 COMPILATION 



<5-?<S7 



insite 



Ref.# BC19B 

INTEL® USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 08080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



"FL2AS" - INTEL FLOATING POINT NUMBER TO ASCII STRING 
Converts number in floating point record (FPR) to ASCII string. 



Intel MDS 800 with ISIS II Linking Loader 



Intel "FPAL.LIB", Intel "LINK" & "LOCATE", PL/M-80 Compiler or 
ASM-80 Assembler. 



Pass Poin+er to 18-Byte 'FPR' in B, C Registers 

Pass Pointer to 14-Byte String Buffer in D, E Registers 

PL/MCall : "Call FL2AS (.FPR, .STR)" 



Revised 2/78 



String is filled with 14 spaces and then digits are filled in 
as necessary. 

Format: -xxxxxxx. ,_, E -xx 

See format notes in Listing. 



NOTES : 
(1) 
(2) 
(3) 



Has not been compiled as "REENTRANT" 

May be added to 'FPAL.LIB' if desired. 

For users without PL/M-80, request version which is 

pre- 1 inked with PL/M80.LIB (FL2AS.0BX) otherwise, 

order FL2AS.0BJ. 



BC19B is offered as 
one program with BC19A. 



Registers Modified: 
ASSUME ALL 


Programmer: 
Bart Evans 


RAM Required: 
VARIABLE: 28 STACK: 4 


Company: 
Durrum Instrument 


ROM Required: 
CODE: 828 


Address: 

1228 Titan Way 


Maximum Subroutine Nesting Level: 
1 LEVEL AFTER ENTRY 


City: 
Sunnyvale, 


Assembler/Compiler Used: 
PL/M-80 Ver.3.0 


State: 
CA 94086 



© Intel Corporation, 1976 
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FILE = :F1:FL2AS.LST 

Ft/M-88 COMPILER ***** FLOATNG POINT TO ASCII STRING ***** 8931JAN89 PAGE i 

ISIS-II PL/M-88 VI 8 COMPILATION OF MODULE FL2AS 

OBJECT MODULE PLACED IN :F1:FL2AS. OBJ 

COMPILER INVOKED BV: PLM88 : Fl : FL2AS. PLM DATEC8931JAN89) 

ITITLEC ***** FLOfiTNG POINT TO ASCII STRING *****') 

i a2AS: DO; 

2 1 FLOflD: PROCEDURE <A,B> EXTERNAL 

3 2 DECLARE <A,B) ADDRESS; 

4 2 END FLOAD; 

5 i FSTOR: PROCEDURE (A,B> EXTERNAL; 

6 2 DECLARE <A,B) ADDRESS; 

7 2 END FSTOR; 

8 1 FADD: PROCEDURE <A,B) EXTERNAL; 

9 2 DECLARE (A, 6) ADDRESS; 
18 2 END FADD; 

U 1 FSUB: PROCEDURE <A,B) EXTERNAL; 
12 2 DECLARE <A,B) ADDRESS; 
12 2 END FSUB; 

14 1 FMUL: PROCEDURE <fl,B> EXTERNAL; 

15 2 DECLARE <A,B) ADDRESS; 

16 2 END FMUL; 

17 1 FDIV: PROCEDURE <fi,B> EXTERNAL; 

18 2 DECLARE <A,B) ADDRESS; 

19 2 END FDIV; 

28 1 FIXSD: PROCEDURE <A,B) EXTERNAL; 

21 2 DECLARE <A,B) ADDRESS; 

22 2 END FIXSD; 

23 1 FLTDS: PROCEDURE (A, 6) EXTERNAL; 

24 2 DECLARE <A,B) ADDRESS; 

25 2 END FLTDS; 

26 1 FCMPR: PROCEDURE <A,B> EXTERNAL; 

27 2 DECLARE (A,B) ADDRESS; 

28 2 END FCMPR; 

29 1 FL2AS: PROCEDURE (FPRSADR, STRIADR) PUBLIC; 

/* ROUTINE FILLS FIRST 14 LOCATIONS OF STRING POINTED TO UPON 
ENTRV HITH ASCII CHARACTERS REPRESENTING FLOATING POINT VALUE 
IN THE FPR. FORMAT IS AS FOLLOWS: 

STRING ELEMENT NUMBER: 8122456789 18 11 12 13 
CONTENTS - M MMMMMM E-XX 

2/6/78 5 _ 270 



PL/M-88 COMPILER ***** FLQATNG POINT TO ASCII S'.RING ***** 8931JRN09 PAGE 



WHERE "M' IS 7 DIGITS WITH AN ACCURACY OF +/- 1 IN THE LAST 
DIGIT AND 'X' IS 2 DIGITS OF EXPONENT 

NOTES: 

(1) LARGEST NUMBER (INFINITY) IS 1462822 E 38 

(2) SMALLEST NUMBER GREATER THAN ZERO IS 1 175435 E-i-8 
CO SIGNS ARE ONLY RETURNED IF NEGATIVE. 

<4> IF VALUE IS WITH THE RANGE OF i <= N <= 9999999. , 1*3 
EXPONENTIAL PORTION IS RETURNED- THE SPACE IS FILLED 
WITH ZEROS LOCATION OF DECIMAL POINT WILL BE 
ADJUSTED AS REQUIRED. 

(5) WHEREAS LEADING ZEROS ARE NONEXISTANL TRAILING ZEROS 
WILL BE FILLED IN IN ORDER TO ALWAYS RETURN A 7 DIGIT 
STRING. 

*/ 

38 2 DECLARE (FPRSADR, STR$ADR) ADDRESS; 

31 2 DECLARE FPR BASED FPRf-ADR (18) BYTE, 

32 2 DECLARE STR BASED STRIAOR (14) BYTE, 

:<< 2 DECLARE 

TRUE LITERALLY 'lilililiB', 

false literally -'eeeeeeeeB', 

TMP$STR (8) BYTE, 
NUM (4) BYTE, 
INT (4) BYTE, 
REM (4) BYTE, 

P109E6 (4) BYTE DATA (28H, 8BCH, 8BEH, 4CH), 
P18E6 (4) BYTE DATA (7FH, 96H, 18H, 4BH), 
TEN (4) BYTE DATA ( 8, 8, 28H, 41H), 

EXP BYTE, 
PQS*EXP BYTE, 
(I, J) BYTE, 

34 2 MAIN: /* CHECK FOR ZERO, IF SO, LOAD ' 8. 888080 ' AND RETURN */ 

DO I = 8 TO 13, 

35 3 STR (I) = / ') 

36 3 END; 

IF FPR (16) = 8 THEN DO; 
DO I = i TO 8; 

STR (I) = ''8'; 
END; 

STR (2) = '. ■'■> 

RETURN; 

END; 



37 


2 


39 


3 


46 


4 


41 


4 


42 


3 


43 


3 


44 


~\ 
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47 


3 


48 


3 


49 


3 


56 


2 


51 


2 


52 


2 



52 


2 


54 


2 


56 


3 


57 


3 


58 


3 


59 


3 


68 


3 


61 


3 



PL/M-88 COMPILER ***** FL0ATN6 POINT TO ASCII STRING ***** 8931JAN89 PAGE 3 

45 2 HANTISSAISIGN: /* IF NEGATIVE, LOAD '-' AND NEGATE */ 

IF FPR (17) = 188688888 THEN DO; 
FPR (17) = 8; 
STR (8) = '-'; 
END; 

CALL FSTOR (. FPR, . HUM); 

EXP = 188; 

NORHALIZEl: /* MULTIPLY/DIVIDE UNTIL NUMBER IS IN RANGE 
OF 18,888,888 <> N < 186,888,866 AND KEEP 
TRACK OF RESULTING EXPONENT */ 

CALL FLOAD (. FPR, . NUM); 

CALL FCMPR (. FPR, . P168E6); 

IF (FPR (8) AND 118888886) O 8 THEN DO; /* X >= 188,868,666 */ 

EXP = EXP+1; 

CALL FLOAD (. FPR, . NUM); 

CALL FDIV (. FPR, . TEN); 

CALL FSTOR (. FPR, . NUM); 

60 TO NORMALIZE!; 

END; 

62 2 N0RHALIZE2: 

CALL FLOAD (. FPR, . NUM); 

CALL FCMPR (. FPR, . P18E6); 

IF (FPR (8) AND 88186888B) O 8 THEN DO; /* X < 18,886,888 */ 

EXP = EXP-1; 

CALL FLOAD (. FPR, . NUM); 

CALL FMUL (. FPR, . TEN); 

CALL FSTOR (. FPR, . NUM); 

GO TO NORMALIZED 

END; 

72 2 EXTRACT$DIGITS: /* REMOVE DIGITS FROM RIGHT TO LEFT - 

DIGIT = N - 18 * INT(N/16) 
N' = INT(N/18) */ 

DO I = 8 TO 7; 

CALL FLOAD (. FPR, . NUM); 

CALL FDIV (. FPR, . TEN); 

CALL FIXSD (. FPR, . INT); 

CALL FLTDS (. FPR, . INT); 

CALL FMUL (. FPR, . TEN); 

CALL FSTOR (. FPR, . REM); 

CALL FLOAD (. FPR, . NUM); 

CALL FSUB (. FPR, . REM); 

CALL FIXSD (. FPR, . REM); 

82 3 TMPfSTR (7-1) = REM (6) + 98H; 

83 3 CALL FLTDS (. FPR, . INT); 

84 3 CALL FSTOR (. FPR, . NUM); 

85 3 END; 



63 


2 


64 


2 


66 


3 


67 


3 


68 


3 


69 


3 


78 


3 


71 


3 



73 


3 


74 


3 


75 


3 


76 


3 


77 


3 


78 


3 


79 


3 


88 


3 


81 


3 
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***** FLOATNG POINT TO ASCII STRING ***** 8931JAN89 PAGE 4 



y/ 


c 


88 


2 


89 


2 


98 


2 


91 


2 


92 


2 


93 


2 



ROUND$OFF: /* ROUND TO NEAREST 7 DIGITS */ 

THPISTR (7) = DEC (TMP*STR (7) + 5).= 
TMPSSTR (6) = DEC (TMPtSTR (6) PLUS 8); 
TMP$STR (5) = DEC (TMFISTR (5) PLUS 0); 
TMP*STR (4) = DEC (TMPISTR (4) PLUS 6); 
TMP$STR (3) = DEC (TMP*STR (3) PLUS 0), 
TMPISTR (2) = DEC (THPISTR (2) PLUS 0); 
TMP$ C TR (i) = DEC (TMPISTR (i) PLUS 8>; 
TMP*STR <0) = DEC (TMP$STR (8) PLUS 9); 

94 2 RESOLVE /* IF 1<= N <= 9999999. THEN LOAD WITH SPACES 
INSTEAD OF ' E XX' ELSE COMPUTE EXPONENT AND LOAD 
IN 'E' FORMAT. */ 

J = l; 

IF EXP >= 92 AND EXP <= 99 THEN DO; 
DO I = 8 TO 6; 

IF EXP-92 = I THEN DO; 
STR (J) = '. '> 
J = J+l; 
END; 
STR <J) = <TMP$STR (I) AND 0FH) + '8''; 
J = J+i; 
END; 
RETURN; 
END; 
ELSE DO; 

POSIEXP = TRUE; 
IF EXP < 93 THEN DO; 
EXP = 93 - EXP; 
POSIEXP = FALSE.; 
END; 
ELSE EXP = EXP - 93; 

DO I = TO 6; 

IF I = 1 THEN DO; 

STR (J) = ''. '; 
J = J+i; 
END; 
STR (J) = (TMP$STR (I) AND 8FH) + '8'.; 

J = J+l; 
END; 

125 3 STR (18) = 'E'; 

!26 3 IF NOT POSIEXP THEN STR (11) = '-'; 

128 3 I = EXP/18; 

129 3 STR (12) = I + ''0'i 

l-<0 3 STR (13) = (EXP - 18*1) + ''8 /; 

131 3 END; 

132 2 END FL2AS; 

133 1 END FL2AS; 
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95 


2 


97 


3 


98 


4 


180 


5 


101 


5 


102 


5 


183 


4 


104 


4 


105 


4 


106 


3 


107 


3 


108 


2 


109 


3 


110 


3 


112 


4 


113 


4 


114 


4 


115 


3 


116 


3 


117 


4 


119 


c 


120 


5 


121 


5 


122 


4 


123 


4 


124 


4 
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PL/M-88 COMPILER ***** FLGATN6 POINT TO ASCII STRING ***** 



MODULE INFORMATION: 

CODE AREA SIZE = 933CH 828D 
VARIABLE AREA SIZE = 681CH 28D 
MAXIMUM STACK SIZE = 8684H 4D 
222 LINES READ 
8 PROGRAM ERROR (S ) 

END OF PL/M-88 COMPILATION 



8931JAN09 PAI3E 
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Ref.# BC21 



INTEL' USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 08008 38080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



8080 FLOATING POINT A b , EXP AND NATURAL LOG FUNCTIONS FOR USE WITH 
FLOATING POINT MATH PKG. BC1 and BC2 

A is evaluated by X = EXP (B*Ln(A)), and has been checked to 9.9 99 
(vs. an HP-35 calculator). A typical evaluation consumes 80-90 msec 
(2 MHz clock). Evaluation of Exponential and Natural Log functions 
over argument range with approx 7-8 digit accuracy, using scaled series 
eval uation. 



BC1 & BC2 Floating Point Math Pkg. , (Insite Section 5). 

A** b HL = address of Floating Point Value A 

DE = address of Floating Point Value b 

EXP(X) uses value in F.P. accum or at HL 
Ln(X) 

Returned in F.P. accum and in A, B, C, D (for call to STR sub) 
In EXP (X), X is scaled by dividing by 2**N so 0.<X<0.5 
EXP is evaluated using the standard series: 

EXP = 1 + X + X /2 +.... which is very accurate for X<0.5 

The result is them squared N times to give the correct magnitude 
result. A typical evaluation consumes approx 35-50 Msec (2 MHz clock) 

lX +1 3 V X+ 1 / 5 \X +1/ + "*j 

scaled by dividing by 2 N , so that ]<_ X<2. 

The result is then added to N*Ln (2) which represents the scaling 
offset. A typical evaluation also consumes 35-50 Msec. Both series 
are expandable to a greater number of terms by changing the operand 
in a CPI Instruction. Currently 7 terms for EXP and 6 for Ln. 



Registers Modified: 
ALL 



RAM Required: 
18-Bytes + FP math RAM 



ROM Required: 
161 H Bytes 



Maximum Subroutine Nesting Level: 

4 + FP pkg. 



Assembler/Compiler Used: 
MAC80 V7.3 



Programmer: 
Edward G. Perkins 



Company: 

Adams-Smith . Inc. 



Address: 

Summer Road 



City: 
Boxboro 



State: 
MASSACHUSETTS ni7ip 



© Intel Corporation, 1976 
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PAGE 1 



0832 D5 

0833 CB6F12 
0836 C4E308 
0839 El 
083 A CD8C12 
083D G34308 



0800 




0800 111C00 


TOEX: 


0803 211800 




0806 CD3208 




0809 DB01 


NDEX: 


080B 211800 


TOEEX 


080E CD6F12 




0811 GO4308 




0814 211C00 




0817 CD3E12 




081 A DB01 


NDEEX 


081C 2UC00 


TOLN: 


081F CD6F12 




0822 CDE308 




0825 DB01 


NBLN: 


0827 76 




0018 


FLOAT 


0828 1E08 


5 FLTAC 
FLTAC: 


082A 0600 




082G 48 




082D 50 




082E GO0015 




0831 G9 





;REF. NO. BC21 

; PROGRAM TITLE 8080 FLOATING PT. A , EXP 8 NATURAL LOG 

FUNCTION FOR USE W/F.P. MATH PKG. REF. NO. BC4 



FLOATING EXP AND LN FUNCTIONS 
AND TEST ROUTINES 

ORG 800H ;TEMP LOG 

LXI D.FLOAT+4 ; EXPONENT 

LXI H, FLOAT ; VALUE 

CALL FPOWR | VALUE**EXPONENT 

IN 1 5 PAUSE W/RESULT IN ACCS 
' LXI H, FLOAT ;X 

CALL FLOD ; LOAD 

CALL FEXP ;EXP(X) 

LXI H,FLOAT+4 ; STORE 

CALL FSTR 

IN 1 ; PAUSE 

LXI H,FLOAT+4 ;EXP(X) 

CALL FLOD ; LOAD IT 

CALL FNLOG 5 LN(EXP(X)) 

IN 1 ; PAUSE W/RESULT IN ACCS 

HLT ;STOP RUNNING OFF END 
EQU 0018H {VALUE 

5 FLTAC - FLOAT VALUE IN A REG 

MVI E,8 jIND DATA IN A 

MVI B,0 ;CLEAR B,C,D 

MOV C,B 

MOV D,B 

CALL FLT ; FLOAT 

RET ;DONE 

5 FPOWR - RAISE VALUE AT HL TO POWER AT DE CA**B) 
; METHOD - X=EXP(B * LN(A)) 

FPOWR: PUSH D ;SAVE B 

CALL FLOD ; LOAD A 

CNZ FNLOG ;A NOT 0, SO TAKE LN(A) 

POP H ;B 

CALL FMUL ; B*LN< A) 

JMP FEXP ;EXP TO GET A**B 

;FEXP - EXP(FP ACCUM) , USING SERIES EVALATION 
; EXP - l+X+X**2/2 ! + 



; ENTRY WHEN HL=ADDR OF X 
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0040 CP6F12 FEXPH: CALL FLOD ; LOAD X 

0843 AF FEXP: XRA A ; RESET SCALE COUNT 

0844 325 118 STA TXSCL 

0047 CD5A12 CALL FTST ; CHECK SIGN OF X 

094A F?*«nR -TP FEXPP :X IS + 

084D CD5212 CALL FAIiS ; MAKE X + 

0850 CD6O08 CALL FEXPP ;EXP(+X) 



0853 


21DC08 


0856 


CD6F12 


0859 


214418 


085C 


CDB412 


085 F 


C9 


0860 


FE80 


0862 


DA6C08 


0865 


D67F 


0867 


325118 


086 A 


3E7F 


086 C 


214018 


086 F 


E5 


0870 


CD3E12 


0873 


El 


0874 


CD6F12 


0877 


214818 


087A 


CD3E12 


087D 


215018 


0880 


3601 


0882 


21DC08 


0885 


CDD012 


0888 


214418 


088B 


CD3E12 


088E 


3A5018 


0891 


3C 


0892 


325018 


0895 


FE08 


0897 


C AC 108 


089 A 


CD2808 


0S9D 


214C18 


08AO 


CD3E12 


08 A3 


214818 


©8A6 


CD6F12 


08A9 


214018 


03 AC 


CD3C12 


08AF 


214C18 


08B2 


CDB412 



LXI H,FPONE 
CALL FLOD 
LXI H,TEXP 
CALL FDIV 
RET ;DONE 



;EXP(-X) = 1/EXP(X) 
,1.0 

;EXP(+X) 
;EXP(-X> 



;EXP(+X) 

FEXPP: CPI 80H ; SEE IF X> . 5 

JC FEXOK ;X< .5 
;FOR ACCURACY, WITH FEW TERMS, X IS SCALED /2**N 
;S0 0<=X<.5, THEN EXP(X) IS SQUARED N TIMES 
SUI 7FH ;GET N FOR /2**N 
STA TXSCL ;SAVE SCALE 
MVI A,7FH ;X< .5 
FEXOK: LXI H,TMPX ; SAVE X 
PUSH H ;SAVE 
CALL FSTR 

POP H „,„ „ 

CALL FLOD ; LOAD SCALED X, REPLACING ORIG X 
LXI H,TERMX ;INIT TERM 
CALL FSTR 

LXI H, TDNOM DENOMINATOR 
MVI M, 1 ;SET AT 1 
LXI H,FPONE ; 1.0 
FXSUM: CALL FADD ; 1+X 
LXI H.TEXP ;SUM 
CALL FSTR 
LDA TDNOM 5 INC DENOM 

INR A 

STA TDNOM 

CPI MXTRM ;MAX # TERMS? 

JZ FEXPX ; YES-EXIT SCALING EXP( X) 
;NOW CALC NEXT TERM 

CALL FLTAC ; FLOAT DENOM 

LXI H,TMPD ;SAVE IT 

CALL FSTR 

LXI H.TERMX ; TERM 

CALL FLOD 

LXI H.TMPX ;X 

CALL FMUL ; TERM*X 

LXI H.TMPD ; DENOM 

CALL FDIV ;TER1VDEN0M 
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08B5 214818 
08B8 CD3E12 
08BB 214418 
08BE C38508 



08C1 3A5118 
08C4 FE00 
08C6 CA5A12 

08C9 67 
08CA E5 
08CB 214418 
08CE E5 
08CF CD8C12 
08D2 El 
08D3 CD3E12 
08D6 El 
08D7 25 
08D8 G2CA08 
08DB C9 

0008 



LXI H,TERMX 

CALL FSTR ; STORE NEW TERM 

LXI H,TEXP ;SUM 

JMP FXSUM ;SUM IT 

;EXP(X) CALCULATED, SCALE IF NEEDED 
FEXPX: LDA TXSCL ? SCALE COUNT 

CPI 

JZ FTST ;NO SCALING, X WAS <.5 
; SCALE EXP BY SQUARING 

MOV H,A 5 SET COUNT 
FEXSQ: PUSH H ;SAVE COUNT 

LXI H,TEXP ;EXP 

PUSH H 

CALL FMUL {SQUARE IT 

POP H 

CALL FSTR ; SAVE 

POP H 

DCR H ; COUNT 

JNZ FEXSQ ;MORE 

RET ;DONE 

MXTRM EQU 8 ; GO TO X**7, GIVES 7 PLACES FOR X< .5 
;FOR ACCURACY l.E-7 ERROR 



08DC 81000000 FPONE: DB 81H, 0,0,0 ,1.0 



1840 
1844 
1848 
184C 
1850 
1851 



08E0 CD6F12 



08E3 


5F 


08E4 


3E81 


08E6 


214018 


08E9 


CD3E12 


08EC 


7B 


08ED 


D681 


08EF 


CD2808 


08F2 


218209 



TMPX EQU 1840H ;X HOLD 

TEXP EQU TMPX+4 ; SERIES SUM 

TERMX EQU TEXP+4 ; TERM 

TMPD EQU TERMX+4 ; DENOM 

TDNOM EQU TMPD+4 ;8 BIT DENOM INTEGER 

TXSCL EQU TDNOM+1 ;8 BIT SCALE COUNT 

FNLOG - LNCFP ACCUM) USING SERIES FOR 1<= X < 2 
LN=2*( X- 1/X+ 1+ 1/3( X- 1/X+ T ) **3+ l/5( X- 1/X+ 1 ) **5+ . . ) 
ACCURATE TO 6 DECIMALS OVER INTERVAL 1 => % 
RETURNS LN IN FP ACCUM 

; ENTRY WHEN HL=ADDR OF X 
FNLGH: CALL FLOD ;LOAD X 

FNLOG: MOV E,A ;GET EXP 

MVI A,81H ; SCALE X, 1<=X<2 

LXI H,TMPX ; STORE X 

CALL FSTR 

MOV A,E ;ORIG EXP 

SUI 81H ;ADJ 

CALL FLTAC ; POWER OF 2 

LXI H,L0G2 ;LN(2) 
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08F5 CD8C12 




CALL FMUL i IN IT LN 


08F8 214418 




LXI H,TMPY ?Y 


08FB CD3E12 




CALL FSTR ; STORE 


08FE 3E01 




MVI A, 1 ;K=1 


0900 325018 




STA TFNLK 


0903 21DC08 




LXI H.FPONE ? 1.0 


0906 CD6F12 




CALL FLOD ; LOAD IT 




?CALC 


TERM X-l/X+1 


0909 214018 




LXI H,TMPX 


090C E5 




PUSH H 


090D CDD812 




CALL FADD ; X+ 1 


0910 El 




POP H ;SAVE 


0911 E5 




PUSH H 


0912 CD3E12 




CALL FSTR 


0915 218609 




LXI H.FPTWO {NOW X-l 


0918 GDD312 




CALL FSUB 


091B El 




POP H ;X+1 


09 1C E5 




PUSH H 


09 ID CDB412 




CALL FDIV 5 TERM 


0920 El 




POP H {X 


0921 E5 




PUSH H 


0922 CD3E12 




CALL FSTR {SET IN IT TERM 


0925 El 




POP H ;AND ITS SQUARE 


0926 CD8C12 




CALL FMUL 


0929 214818 




LXI H,TMPZ 


092C CD3E12 




CALL FSTR 


092F 214018 




LXI H,TMPX {LOAD INIT TERM 


0932 CD6F12 




CALL FLOD 


0935 C34909 




JMP FNLSM ; START SUMMING 




j NEW ' 


TERM = TERM * Z (INIT TERM**2) 


0938 214018 


FNLG2 


: LXI H,TMPX ;TERM 


093B E5 




PUSH H ;SAVE 


093C CD6F12 




CALL FLOD ; LOAD IT 


093F 214818 




LXI H,TMPZ ; NEXT ODD POWER 


0942 CD8C12 




CALL FMUL 


0945 El 




POP H ; STORE IT 


0946 GD3E12 




CALL FSTR 




;SUM= 


SUM + 2*TERM /K 


0949 3C 


FNLSM 


:: INR A ;2*TERM 


094A 215118 




LXI H,TMPN ;SAVE 2*TERM 


09 4D E5 




PUSH H 


094E CD3E12 




CALL FSTR 


0951 3A5018 




LDA TFNLK {GET K 


0954 CD2808 




CALL FLTAC {FLOAT IT 


0957 214C18 




LXI H.TMPD {SAVE 


09 5 A E5 




PUSH H 


095B CD3E12 




CALL FSTR 


095E El 




POP H ?K 
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095F 


E3 


XTHL ;SWAP W/2*TERM 


0960 


CD6F12 


CALL FLOD ?2*TERM 


0963 


El 


POP H ?K 


0964 


CDB412 


CALL FDIV ;SET FOR SUM 


0967 


214418 


LXI H.TMPY ;SUM 


096A 


E5 


PUSH H 


09 6 B 


GDD812 


CALL FADD 


096E 


El 


POP H 


096F 


C03E12 


CALL FSTR ;NEW SUM 


0972 


3A5018 


LDA TFNLK ;NEXT K=K+2 


0975 


C602 


ADI 2 tK-1,3,5,... 


0977 


325018 


STA TFNLK 


097A 


FE0C 


CPI 12 ;6 TERMS? 


097C 


DA3809 


JC FNLG2 t NO- MORE 


097F 


G35A12 


JMP FTST ; RELOAD REGS, SET CONDS 



0982 80317217 L0G2: 
0986 82000000 FPTVO: 



DB 80H,31H,72H, 17H ;LN(2) 
DB 82H, 0,0,0 ;2.0 



1844 


TMPY 


EQU TEXP ; 


Y 


1848 


TMPZ 


EQU TERMX 


;Z 


1850 


TFNLK 


EQU TDNOM 


;K 


1831 


TMPN 


EQU TFNLK+1 ;TEMP STORE 




5 EXTERNALS 




1500 


FLT 


EQU 1500H 


; FLOAT ROUTINE 


12D8 


FADD 


EQU 12D8H 


;ADD 


12D3 


FSUB 


EQU 12D3II 


; SUBTRACT 


128G 


FNUL 


EQU 128CH 


; MULTIPLY 


12B4 


FDIV 


EQU 12B4H 


; DIVIDE 


126F 


FLOD 


EQU 126FH 


;LOAD FP ACCUM 


123E 


FSTR 


EQU 123EH 


; STORE FP ACCUM 


125A 


FTST 


EQU 125 AH 


; RELOAD REGS FROM FP ACCUM 


1252 


FABS 


EQU 1252H 


; ABSOLUTE VALUE 


0000 




END 
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Ref.#BC22A 



IflSite INTEL * USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Software 

Required 
Hardware 

Output 
Results 



D 8008 D 8048 & 8080/8085 D 8086 D Other 



(uaa additional shafts If nacaasary) 



Floating Point Utility Programs for Use with FPAL.LIB 

FFBCD - Converts floating point number in FAC to BCD in buffer 
memory: fixed point for values .1000000 to 9999999. 
Otherwise floating point BCD such as -1 .234567E+09 

FFL0AT - Converts BCD input string to floating point value in FAC. 
Accepts fixed and floating formats. 

FLN, FLOG, FL0G2 - Natural Log, Common Log and Log Base 2 of FAC 

replaces FAC 

FALN, FAL0G, FAL0G2 - Ant i log Base E, 10 and 2 of FAC replaces FAC 

FPWR - Raises FAC to power in memory which is pointed to by D & 
E registers. 



FEXCH - 



RMATH - 



FPAL.LIB 



Places FAC in temporary storage, loads memory pointed to 
by D & E registers, and loads D & E with temp, (used to 
exchange operator/operand) 

Initializes conditions before math functions are called 
within the service routine and restores prior conditions 
after the service routine is finished with the math processor, 



No special hardware required 



BC22A is offered as one 
program with BC22B. 



Avai lable on diskette 
only for $35.00. 



Registers Modified: All registers restored 

unless r esult in that register 

RAM Required: 



Varies with function 



ROM Required: Varies with function 



Maximum Subroutine Nestinq Level: V ' @ f • W ' 
3 function 



Assembler/Compiler Used: I S I S- I I MACRO V2.0 



Programmer: James Q> Fo , |ansbee 



Company: 



J F Microsystems 



Address: 



5617 W Argent Rd 



City: 



Pasco 



State: 



Washington 99301 



© Intel Corporation, 1978 
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Ref.# BC22B 



insit^ " INTEL * "SER'S LIBRA RY SUBMITTAL FORM 



D4004 D4040 D8008 H 8080 D3000 D Other. 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



SBC-310 FLOATING POINT SYSTEM FOR USE WITH SINGLE OR 
MULTIPLE SBC-80/20 PROCESSORS 

INTERFACES SBC-80/20 PROGRAMS WITH HIGH SPEED MATH 
BOARD, SBC-310 



SBC-310, AT LEAST 1 SBC-80/20, MULTIBUS SUCH AS SBC-604/ 

SBC-614 
(SEE COMMENTS ON MODULE 'SBCSIO' FOR JUMPERS, ADDRESS 

SELECTIONS, INTERRUPT LEVEL, ETC.) 



NONE REQUI 



FFSET 

FFLOAD 

FFSTOR 

FFSTAT 

FFADD 

FFSUB 

FFMUL 

FFDIV 

FFIXSD 

FFLTDS 

FFCMPR 

FFZTST 

FFNEG 

FFCLR 

FFABS 

FFSQR 

FFSQRT 

FFSAVE 

FFRSTR 



RED (SYSTEM IS COMPATIBLE WITH FPAL.LIB AND 
MAY BE USED AT THE SAME TIME BY THE SBC-80/20 
WITH SOFTWARE MATH BEING DONE BY THE SBC-80/20 
AND HARDWARE MATH BEING DONE BY THE SBC-310) 
INITIALIZE SBC-310 MATH SYSTEM 
LOAD ACCUMULATOR * 
STORE ACCUMULATOR * 
STATUS BYTE INTO 'A 1 REGISTER 
ADD OPERATOR TO ACCUMULATOR * 
SUBTRACT OPERATOR FROM ACCUMULATOR * 
MULTIPLY ACCUMULATOR BY OPERATOR * 
DIVIDE ACCUMULATOR BY OPERATOR * 
CONVERT FLOATINT ACCUMULATOR TO FIXED VALUE 

IN MEMORY * 
CONVERT FIXED MEMORY TO FLOATING ACCUMULATOR * 
COMPARE ACCUMULATOR TO MEMORY VALUE * 
COMPARE ACCUMULATOR TO ZERO 
CHANGE SIGN OF ACCUMULATOR 
CLEAR ACCUMULATOR TO ZERO 
ABSOLUTE VALUE OF ACCUMULATOR 
SQUARE ACCUMULATOR 
SQUARE ROOT OF ACCUMULATOR 
ACCUMLATOR INTO TEMPORARY REGISTER 
RESTORE TEMPORARY REGISTER TO ACCUMULATOR 



OPERATOR OR MEMORY POINTED TO BY D & E REGISTERS 



Note: BC22B is offered as one program with BC22A. 



Registers Modified: ALL REG ISTERS/FAC 
RESTORED UNLESS RESULT THEREIN 


Programmer: 

JAMES C. FOLLANSBEE 


RAM Required: VAR j ES WIJH FUNCTI0N 


Company: 

J F MICROSYSTEMS 


ROM Required: VAR j ES WIJH FUNCJI0N 


Address: 

5617 W ARGENT RD 


Maximum Subroutine Nesting Level: 

VARIES WITH FUNCTION 


City: 
PASCO 


Assembler/Compiler Used: 
ISIS-II MACRO V2.0 


State: 

WASHINGTON 99301 



| Intel Corporation. 1976 
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INTEL® USER'S LIBRARY SUBMITTAL FORM 



Ref.# BC23 



Program 
Title 

Function 



Required 
Hardware 

Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 D8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



RELOCATABLE FMATH AND XMATH, 8085 FLOATING POINT PACKAGE 



Floating Point Routines 

Integer/Fractional Part 

Square Root 

Log Base E 

Exponential, E+X 

Log Base 10 

10+X 



Real Base to Real Exponent AtX 
Trig SIN, COS, and TAN 

ARCS IN, ARCC0S, AND ARCTAN 
Polynomial Expander 
Degrees < > Radians Conversions 



Package contains subroutines for Addition, Subtraction, Multiplication 
Division, Negate, Absolute Value and Test of Floating Point Numbers. ' 

8080 

ISIS II for system generation 



Source available on diskette for $35.00. 
Source Listing available for $15.00. 



Registers Modified: 
See documentation 


Programmer: 

Richard Al len 


RAM Required: 


Company: 
Texas Microsystems, Inc. 


ROM Required: 


Address: 
6610 Harwin, Suite 125 


Maximum Subroutine Nesting Level: 


City: 
Houston 


Assembler/Compiler Used: 

ISIS II MACRO ASSEMBLER 


State: 
Texas 77036 



© Intel Corporation, 1976 
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Ref. #BB47 

INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 a 8048 □ 8080/8085 □ 8086 □ Other 



8048 - DIV — DIVISION ROUTINE 
R34 = R23/A = remainder 



8748 or 8035 



None 



R23 = 16 bit dividend 
A = 8 bit divisor 



R34 = 16 bit result 
R2 = 8 bit remainder 



Registers Modified: 



A, RO, 2, 3, 4, 5 



RAM Required: 



None 



ROM Required: 



47 Bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



(use additional thaats If nacassary) 



Programmer: 



H. Serindat 



Company: 



Societte ECA 



Address: 



Z.I. Toulon-EST 



City: 



83087 Toulon-Cedex 



State: 



France 



8/79 
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> REF. NO. BB47 
PROGRAM TITLE 8048-DIV 



DIVISION SUBROUTINE 



DIV - DIVISION SUBROUTINE R34=R23/A 
DIVIDEND = R2, 3 
DIVISOR = A 
QUOTIENT = RK, 4 
REMAINDER = R2 
REGISTERS MODIFIED: A, R8, R2, R3, R4, R5 



INIT COUNTER 
RO = DIVISOR 
DIVISOR NORMALIZATION 

; IF BIT? = 
OR 
IF R2 > DIVISOR: 



DIV: 


MOV 


R5, #S" 




MOV 


R0, A 


DV0 : 


CLR 


C 




JB7 


DV1 




CPL 


A 




ADD 


A. R2 




JNC 


DV1 




CPL 


A 




INC 


R5 




MOV 


A. RO 




RL 


A 




MOV 


R8.. A 




JMP 


DVO 


DV1 : 


MOV 


R4, #0 




MOV 


A, R2 


DV2 : 


CPL 


A 




JC 


DV3 




ADD 


A, RO 




JC 


DV5 




JMP 


DV4 


DV3 : 


ADD 


A.. RO 




CLR 


c 


DV4 : 


CPL 


A 




MOV 


R2, A 


DV5 : 


CPL 


C 




MOV 


A. R4 




RLC 


A 




MOV 


R4, A 




MOV 


A, R3 




RLC 


A 




MOV 


R3, A 




MOV 


A, R2 




RLC 


A 




MOV 


R2, A 




DJNZ 


R5, DV2 




RRC 


A 




MOV 


R2, A 




RET 





ELSE 



R5 = R5+1 

DIVISOR * 2 



DIVISION 



IF C = 1: SUBTRACTION AND 

C = 0, ELSE 
IF R2 < RO: ROTATE 
ELSE: 



SUBTRACTION 

R2 = R2-R0 
C = RESULT LSB PARTIAL 
ROTATE LEFT R2, 3, 4 WITH C 



REMAINDER NORMALIZATION 



5-290 



Ref.# BB48 



UlSltg" INTEL ° USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 8 8080 D3000 □ Other. 



(use additional sheets if necessary) 



ARRAY ADDRESSING SUBROUTINE AND CALLING MACRO 

Addresses individual array elements (l, 2 or 3 dimensional arrays) via 
subscripts. See description on separate sheet. 



MDS with console output. 



Uses MDS console output subroutine CO, 



The calling macro (ARSET) defines all the three array dimensions 
(ISIZE, JSIZE, KSIZE) and the number of bytes occupied by each array 
element (IW). Locations I, J, K contain the subscripts of the array 
element whose address is required. 



Subroutine ARRAY returns the address of the (I, J, K) element of the 
array in the H, L registers. 



ARRAY SIZE LIMITATIONS 



ZERO, ISIZE, JSIZE, KSIZE, IW must each lie between O and 255 dec 
ZERO + (ISIZE x JSIZE x KSIZE x IW) product must not exceed 64K dec, 



LIMITATIONS ON LOCATION OF ARRAY IN RAM OR ROM 
None. 



Registers Modified: „ , 



RAM Required: 



10 bytes dec. 



ROM Required: 



ARRAY subroutine uses 
139 bytes dec. 



Maximum Subroutine Nesting Level: 

1 level used 



Assembler/Compiler Used: 

8080 MDS Macro Assembler Ver. 1.0 



Programmer: 



Roy G. Witton 



Company: 



GKN Sankey Limited 



Address: Tweedale Industrial Site, 
Madelev. 



City: 



Telford, 



State: Salop TF7 4JR , England, 

Tel; Telford 58626I 



© Intel Corporation, 1976 
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5-292 



98 034 C 



BB48 



Macro for InitialisationandCallingof _ARRAY Sub rout ine^^ARSET) 

The array initialisation macro is used to transfer arguments to the ARRAY 
subroutine via the PLIST array and the H, L registers. The macro is 
entered in the program as shown below: - 

ARSET ZERO, IW , ISIZE, JSIZE, KSIZE 

ARSET is the macro name. 

ZERO represents the base address (name) of the array being addressed. 

IW represents the word length of the data contained in the array being 

addressed. 
ISIZE, JSIZE, KSIZE represent the dimensions of the array being addressed, 

giving the maximum values that the subscripts (I, J, K) can attain. 

The macro stores the values given to IW, ISIZE, JSIZE, KSIZE in the PLIST 
array and loads the H, L registers with the base address of the array being 
addressed, finally calling the ARRAY subroutine which returns the array 
address, indexed by I , J and K to the H, L registers. 

One dimensional arrays may be given ISIZE, JSIZE, KSIZE values such as 
1, 10, or 1, 1, 10 or 10, 0, depending which subscript is being used 
(J, K or I in these examples). Two dimensional arrays may be given values 
such as 1, 10, 5 or 10, 5 or 10, 1, 5 depending which two subscripts are 
being used ( J, K or I , J or I , K in these examples). Three dimensional 
arrays must have all three values quoted, such as 20, 10, 5 or 5 , 20, 10 
or 10, 5, 20 as all three subscripts are being used. 

Subroutine to_Address_Array_Elements_via 

This subroutine determines the address of the data word in an array that 
corresponds to the subscripts held in the locations I , J and K. Arguments 
are transfered via the PLIST array and the H, L registers by the ARSET macro, 
These arguments transfer the values of the data word length, the array 
dimensions and the base address of the array. The subroutine will handle 
up to three dimensions, the algorithm used being :- 

ADDR = ZER0 + (I x IW)* + ( J x IW x ISIZE)** + 

(K x IW x ISIZE x JSIZE) 

ADDR represents the final indexed address returned by the subroutine. 
ZER0 represents the base address (name) of the array. 
IW represents the word length of the data in the array. 
ISIZE, JSIZE, KSIZE represent the array dimensions 
I, J, K represent the subscripts. 

To save operating time the algorithm may be terminated at * for one dimen- 
sional arrays by passing JSIZE and/or KSIZE dimensions of zero. It may be 
terminated at ** for two dimensional arrays by passing a KSIZE dimension of 
zero. 



4/78 



Continued 

5-294 



- 2 - 



As a program development aid an error message (*M) is output if the ISIZE 
argument is set to zero (no dimensions), or if any of the indices (I, J, 
or K) exceeds the array dimensions ( ISIZE, JSIZE, KSIZE) indicating that 
a subscript has exceeded the maximum allowed array size. 

The indexing is done, by double precision addition, adding the H, L 
registers to the D, E registers, in the INDX subroutine, the final indexed 

address being returned in the H, L registers. 
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ASM88 :Fl:RRRflV MACROFILE 



BB48 



ISIS-II 8080/8685 MACRO RSSEMBLER, V2. 8 



MODULE PRGE 



LOC OBJ 



SEQ 



bOURCE STATEMENT 
RRRRV ADDRESSING VI R SUBSCRIPTS 



F889 



1000 
1002 

1804 
1886 
2888 



4 .; 

5 .; 

6 .; 

7 CO 

8 ; 

9 .; 
18 .; 

11 ; 

12 .; 

13 I 

14 J 

15 K 

16 PL I ST 

17 TRBLE 

18 .; 

19 .; 
28 .; 

21 .; 

22 ARSET 

23 .; 
24 
25 
26 
27 



38 
31 



MDS RDDRESSES USED 

EQU 8F889H .; CONSOLE OUTPUT 

RRM LOCATIONS USED 

EQU 1888H ; I SUBSCRIPT < INDEX} 

EQU I +2 .; J SUBSCR I PT < I NDEX > 

EQU ..T+2 .; K SUBSCRIPT <INDEX> 

EQU K+2 .; SUBROUTIN ARGUMENTS 

EQU 2888H ; ARRAV BEING ADDRESSED 



MACRO TO INITIALISE & CALL ARRAV SI IBRTN 
MACRO ZERO, IW, ISIZE, JSIZE, KSIZE 



LXI 

SHLD 

LXI 

SHLD 

LXI 

CALL 

ENDM 



H, <IW SHL 8 XOR ISIZE> AND 8FFFFH 
PL I ST .; STORE ARGS IN PARAMETER LIST 
H, CJbIZE SHL 8 XOR KSIZE> AND 8FFFFH 
PLIST+2 ; STORE ARGS IN PARAMETER LIST 
H, ZERO .; TO ADDR ZERO LOCN OF ARRAV 
ARRAV .; CALL ARRAV SUBRTN 



8188 

8188 318838 

8183 C32881 

8128 



8128 218484 
8123 228618 
8126 218484 

8129 228818 
812C 218828 
812F CD8882 
8132 76 
8148 



8148 218484 



34 .: 

35 .; 
36 
37 

33 

48 TEST 

41+.; 

42+ 

43+ 

44+ 

45+ 

46+ 

47+ 

48 

49 

58 

51+.; 

52+ 



TEST PROGRAM 



ORG 
LXI 
JMP 
ORG 
ARSET 

LXI 

SHLD 

LXI 

SHLD 

LXI 

CALL 

HLT 

ORG 

ARSET 

LXI 



8188H 

SP.. 3888H 

TEST 

8128H 

TABLE, 4, 4, 4, 4 



.; SET STACK POINTER 
BEGIN TEST PROGRAM 



H, <4 SHL 8 XOR 4> AND 8FFFFH 

PL I ST .; STORE ARGS IN PARAMETER LIST 

H, <4 SHL 8 XOR 4> AND 8FFFFH 

PLIST+2 .; STORE ARGS IN PARAMETER LIST 

H, TABLE .; TO ADDR ZERO LOCN OF ARRAV 

ARRAV .; CALL ARRAV SUBRTN 

8148H 

TABLE, 4, 4, 4, 8 



H, <4 SHL 8 XOR 4> AND 8FFFFH 



5-296 



IS IS- 1 1 8080/8685 MRCRO ASSEMBLER, V2. 6 



MODULE PRQE 



LOG OBJ 



SEQ 



SOURCE STATEMENT 



0142 220610 


0146 210004 


0149 : 


220810 


014C ; 


210020 


014F l 


^DO002 


0152 


76 


0160 




0160 


210404 


0163 


220610 


0166 


210000 


0169 


220810 


016C 


210020 


016F 


CD0002 


0172 


76 


0180 




0180 


210404 


0183 


220610 


0186 


210401 


0189 


220810 


018C 


210020 


018F 


CD0002 


0192 


76 


01R0 




011=10 


210104 


01R3 


220610 


01R6 


210404 


01R9 


220810 


©IRC 


210020 


01RF 


CD0002 


01B2 


76 


01C0 




01C0 


210104 


01C3 


220610 


01C6 


210004 


01C9 


220810 


01CC 


210020 


01CF 


CDO002 


01D2 


76 


01E0 




01E0 


210104 


01E3 


220610 


01E6 


; 210401 


01E9 


1 220810 


01EC 


: 210020 


01EF 


CD0002 



53+ 

54+ 

55+ 

56+ 

57+ 

58 

59 

60 

61+; 

62+ 

63+ 

64+ 

65+ 

66+ 

67+ 

68 

69 

70 

71+.: 

72+ 

73+ 

74+ 

75+ 

76+ 

77+ 

78 

79 

80 

81+.: 

82+ 

83+ 

84+ 

85+ 

86+ 

y I* - + 

88 

89 

90 

91+.: 

92+ 

93+ 

94+ 

95+ 

96+ 

97+ 

98 

100 

101+.: 

102+ 

103+ 

104+ 

105+ 

106+ 

107+ 



SHLD 

LXI 

SHLD 

LXI 

CRLL 

HLT 

ORG 

RRSET 

LXI 

SHLD 

LXI 

SHLD 

LXI 

CRLL 

HLT 

ORG 

RRSET 

LXI 

SHLD 

LXI 

SHLD 

LXI 

CRLL 

HLT 

ORG 

RRSET 

LXI 

SHLD 

LXI 

SHLD 

LXI 

CRLL 

HLT 

ORG 

RRSET 

LXI 

SHLD 

LXI 

SHLD 

LXI 

CRLL 

HLT 

ORG 

RRSET 

LXI 

SHLD 

LXI 

SHLD 

LXI 

CRLL 



PL I ST ; STORE RRGS IN PRRRMETER LIST 
H. <4 SHL 8 XOR 0> AND OFFFFH 
PLI"=:T+2 ; STORE RRGS IN PRRRMETER LIST 
H, TABLE ; TO RDDR ZERO LOCN OF RPRRV 
RRRRV ; CRLL RRRRV SUBRTN 

0160H 

TRBLE, 4, 4, 0, 

H, <4 SHL 8 XOR 4> RND OFFFFH 

PL I ST .; STORE RRGS IN PRRRMETER LIbT 

H. <'0 SHL 8 XOR 0> RND 0FFFFH 

PLIST+2 ; STORE RRGS IN PRRRMETER LIST 

H, TRBLE .; TO RDDR. ZERO LOCN OF RRRRV 

ARRAY .: CRLL RRRRV SUBRTN 

0180H 

TRBLE, 4, 4, 1, 4 

H. C4 "^HL 8 XOR. 4> RND OFFFFH 

PL I ST .: STORE RRGS IN PRRRMETER LIbT 

H, <± SHL 8 XOR 4> RND OFFFFH 

PLIST+2 .: STORE RRGS IN PRRRMETER LIST 

TO RDDR ZERO LOCN OF RRRRV 

CRLL RRRRV SUBRTN 



H, TRBLE 
RRRRV 



01R0H 

TRBLE, 4, 1, 4, 4 



H, <4 SHL 
PL I ST .: 
H, <4 SHL 
PLIST+2 i 
H, TRBLE J 
RRRRV 



i XOR 1> RND OFFFFH 
STORE RRGS IN PRRRMETER LIST 
5 XOR 4> RND OFFFFH 
STORE RRGS IN PRRRMETER LIST 
TO RDDR ZERO LOCN OF RRRRV 
CRLL RRRRV SUBRTN 



O1C0H 

TRBLE, 4, 1, 4, 



H, <4 SHL 
PL I ST i 
H, <4 SHL 
PLIST+2 j 
H, TRBLE j 
RRRRV 



i XOR 1> RND OFFFFH 

STORE RRGS IN PRRRMETER LIST 
: : XOR 0> RND OFFFFH 

STORE RRGS IN PRRRMETER LIbT 

TO RDDR ZERO LOCN OF RRRRV 

CRLL RRRRV SUBRTN 



01EOH 

TRBLE, 4, 1, 1, 4 



H, <4 SHL 

PL I ST 

H, <1 SHL 

PLIST+2 

H, TRBLE 

RRRRV 



8 XOR 1> RND OFFFFH 
STORE RRGS IN PRRRMETER LIbT 

8 XOR 4> RND OFFFFH 
STORE RRGS IN PRRRMETER LIST 
TO RDDR ZERO LOCN OF RRRRV 
CRLL RRRRV SUBRTN 5-297 



lb lb- 1 1 8080/8085 MACRO ASSEMBLER, V; 



MODULE PAGE 



LOC OBJ 
01F2 76 



0200 




0200 


F5 


0201 


C5 


0202 


D5 


0203: 


E5 


0204 


3A0610 


0207 


FEOO 


0209 


C A 7402 


020C 


cr-? 
•_• I 


020D 


3A0010 


0210 


BA 


0211 


D27402 


0214 


2A0010 


0217 


EB 


0218 


3A0710 


021B 


CD8102 


021E 


El 


021F 


19 


0220 


E5 


0221 


3A0910 


0224 


FEOO 


0226 


C22E02 


0229 


El 


022A 


Dl 


022B 


CI 


022C 


Fl 


022D 


C9 


022E 


57 


022F 


3A0210 


0232 


BA 


0233 


D27402 


023:6 


2A021O 


023:9 


EB 


023A 


3A0710 


023:D 


CD8102 


0240 


3A0610 


0243: 


CD8102 


0246 


El 


0247 


19 


0248 


E5 


0249 


3A0810 


024C 


FEOO 


024E 


CA2902 


0251 


57 


0252 


3A041O 


0255 


BA 


0256 


D27402 


0259 


2A041O 


025C 


EB 



SEQ 

108 

109 .; 

110 .; 

111 .; 

112 .; 

113 .; 
114 

115 ARRAV 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

134 
135 

136 RET1: 

137 RET2: 
138 

139 

140 

141 AR1: 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 AR2: 

158 

159 

160 

161 

162 



SOURCE STATEMENT 
HLT 

SUBRTN TO ADDR ARRAV ELEMENTS VIA SUBSCRIPTS 



ORG 

PUSH 

PUSH 

PUSH 

PUSH 

LDA 

CPI 

JZ 

MOV 

LDA 

CMP 

JNC 

LHLD 

XCHG 

LDA 

CALL 

POP 

DAD 

PUSH 

LDA 

CPI 

JNZ 

POP 

POP 

POP 

POP 

RET 

MOV 

LDA 

CMP 

JNC 

LHLD 

XCHG 

LDA 

CALL 

LDA 

CALL 

POP 

DAD 

PUSH 

LDA 

CPI 

JZ 

MOV 

LDA 

CMP 

JNC 

LHLD 

XCHG 



0200H 

PSW 

B 

D 

H 

PL I ST 



ERRX 

D, A 

I 

D 

ERRX 

I 

PLIST+1 

INDX 

H 

D 

H 

PLIST+3 



AR1 

H 

D 

B 

PSW 

D, A 
J 

D 

ERRX 

J 

PLIST+1 

INDX 

PL I ST 

INDX 

H 

D 

H 

PLIST+2 



RET1 

D, A 

K 

D 

ERRX 

K 



SAVE A REG 

SAVE B, C REGS 

SAVE D, E REGS 

bAVE ADDR OF ZERO LOCN 

I SIZE TO A REG 

I SIZE = ZERO ? 

NO 1ST DIMENSION - ERROR 

I SIZE TO D REG 

I INDEX TO A REG 
COMPARE INDEX WITH SIZE 

INDEX >= SIZE 

I INDEX TO H, L REGS 

I INDEX TO D, E REGS 

WORD LENGTH <IN> TO A REG 

INDEX TO <I*IW> 
RESTORE ZERO ADDR 

INDEX ZERO ADDR 

SAVE CURRENT ADDR 

J SIZE TO A REG 

J SIZE = ZERO ? 

2ND DIMENSION 

RETURN CURRENT ADDR - FINISHED 

RESTORE D, E REGS 

RESTORE B, C REGS 

RESTORE A REG 

RETURN TO CALLER 

J SIZE TO D REG 

J INDEX TO A REG 

COMPARE INDEX WITH SIZE 

INDEX >= SIZE 

J INDEX TO H, L REGS 

J INDEX TO D, E REGS 

WORD LENGTH TO A REG 

INDEX TO <J*IW> 

I SIZE '::iSZ> TO A REG 

I NDEX TO ■:: <. J* I W > * I SZ > 

RESTORE CURRENT ADDR 

INDEX CURRENT ADDR 

SAVE CURRENT ADDR 

K SIZE TO A REG 

K SIZE = ZERO ? 

NO 3RD DIMENSION - FINISHED 

K SIZE TO D REG 

K INDEX TO A REG 

COMPARE INDEX WITH SIZE 

INDEX >= SIZE 

K INDEX TO H, L REGS 

K INDEX TO D, E REGS 5-298 



ISIS-II 


8080/808 


5 


LOG 


OBJ 




025D 


2R0710 




0266 


CD8102 




0263: 


2R0610 




0266 


CDS102 




0269 


3A0910 




026C 


CD8102 




026F 


El 




0270 


19 




0271 


C32A02 




0274 


0E2R 




0276 


CD09F8 




0279 


0E4D 




027B 


CD09F8 




027E 


C32902 





MRCRO ASSEMBLER, V2. 



MODULE 



FRGE 



0281 210000 

0284 19 

0285 3D 

0286 C 28402 
0289 EB 
028R C9 



SEQ 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 ERRX 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 



INDX 
IND1 



SOURCE STRTEMENT 



LDR 

CALL 

LDR 

CALL 

LDR 

CRLL 

FOP 

DRD 

JMP 

MVI 

CRLL 

MVI 

CRLL 

■JMP 



PLIST+1 

INDX 

PL I ST 

INDX 

PLIST+3 

INDX 

H 

D 

RET 2 





, -M- 

ET1 



WORD LENGTH TO R REG 

INDEX TO <K*IW> 

I SIZE TO R REG 

INDEX TO <<K*IW>*ISZ> 

.J SIZE CJSZ> TO R REG 

I NDEX TO < < < K* I W > * I SZ > * JSZ > 

RESTORE CURRENT RDDR 

INDEX CURRENT RDDR 

FINISHED 3RD DIMENSION; 

OUTPUT * 

.; OUTPUT M 

i RETURN CURRENT RDDR 



SUBRTN TO CALCULATE INDEX 



LXI 

DRD 

DCR 

JNZ 

XCHG 

RET 

END 



H, 
D 
R 
IND1 



ZERO BRSE 

RDD INDEX TO BRSE, 

NO. OF TIMES SHOWN, 

IN R REG 

RESULTANT INDEX TO D 

RETURN TO CALLER 



E REGS 



PUBLIC SYMBOLS 



EXTERNAL SVMBOLb 



USER SYMBOLS 



AR1 

IND1 

TABLE 



022E 
0284 

2000 



AR2 

INDX 

TEST 



A 0251 
A 0281 
A 0120 



ASSEMBLY COMPLETE, NO ERRORb 



ARRAY 
J 



A 0200 
A 1002 



ARSET 
K 



+ 0000 

A 1004 



CO A F80 
PL I ST A 100 



5-299 



Ref.# BC24 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 08080 D3000 □ Other. 



(use additional sheets if necessary) 



FLOATING POINT CONVERSION ROUTINE (for use with FPAL.LIB) 

CONVERT FREE FORM ASCII STRING TO FLOATING POINT NUMBER. CONVERT FLOAT- 
ING NUMBER TO ASCII STRING WITH FORMAT CONTROL. 



STANDARD 8080 OR 8085 HARDWARE 



INTEL FPAL.LIB 



THE INPUT PARAMETERS CONFORM TO PLM CONVENTION. THE ASCII TO FLOATING 
POINT ROUTINE, ENCODE, IS CALLED WITH THREE ARGUMENTS: 
B-C=STRING ADDRESS 
D-E=FP NUMBER ADDRESS 
STACK+2=FP RECORD ADDRESS 

THE FLOATING POINT TO ASCII ROUTINE, DECODE, IS CALLED WITH FIVE ARGUMENTS: 

B-C=STRING ADDRESS 

D-E=FP NUMBER ADDRESS 

STACK+2=FP RECORD ADDRESS 

STACK+4=FRACTIONAL PRECISION 

STACK+6=STRING LENGTH 

*SEE ATTACHED DOCUMENTATION INCLUDED WITH LISTING* 

THE OUTPUT RESULTS CONFORM TO PLM CONVENTION: 
A=FP STATUS FIELD 
H-L=FP ERROR FIELD 

ENCODE LOADS THE FP NUMBER AT THE FP NUMBER ADDRESS. DECODE FILLS THE 
STRING TO THE LENGTH AND PRECISION SPECIFIED. LEADING ZERO'S ARE SUP- 
PRESSED. 

*SEE ATTACHED DOCUMENTATION INCLUDED WITH LISTING* 



Registers Modified: 

A,D,E,H,L 


Programmer: 

P. M. Callihan 


RAM Required: 

23 Bytes 


Company: 

Goodyear Atomic Corp. 


ROM Required: 

587 Bytes 


Address: 

P. 0. Box 628 


Maximum Subroutine Nesting Level: 3 

Max stack 36-Includes caller&FPAL.L.lB 


City: 

Piketon 


Assembler/Compiler Used: 

ISIS ASSEMBLER 


State: 

Ohio, i+566l 



© Intel Corporation, 1976 
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5-301 



98 034 C 



Ref .#BC25 



JnSJy INTEL ® USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 218080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



LISY — Linear System (Gauss Elimination) - (FPAL) 

The routine solves the linear system CA] x = B of order 
N with the Gauss elimination method. 



None (Math, routine) 



8080/8085 Floating point arithmetic library - FPAL 
Help : Diagnostic routine called in case of math error. 



CA1 Coefficient matrix = N.N. 4 Locations ; symbolic name ACO 
B Coefficient vector = N.4 Locations ; symbolic name BCO 
System order = 1 Location ; symbolic name SYSORD 



x unknown vector = N x 4 Locations ; symbolic name XV 



Registers Modified: 
ALL 



RAM Required: 
12H 



ROM Required: 
2A8H 



Maximum Subroutine Nesting Level: 
2 



Assembler/Compiler Used: 

ISIS II 8Q8Q/8Q85 MACRO ASSEM. 



Programmer: 
G. DE GRAND I 



Company: 
COMMISSION OF EUROPEAN COM- 



Address:MUNITIES, JRC EURATOM, 
ELECTRONIC DIVISION 



City: 



20127 ISPRA (VARESE) 



State: 
ITALY 



© Intel Corporation, 1976 
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98-034D 
5-303 



Ref ,#BC26 



insite 



INTEL® USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 08008 XX8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



Gamma Function Subroutine 

Performs evaluation of the gamma function with the 
interval (-34, 34) as its domain. 



NONE 



8008 Floating Point Math Package, Insite User's Library 
Ref.#BCl, reassembled for the 8080. 



Argument of Gamma Function (ARGX) in Floating Point 
Format (4 bytes) . 



Result of Gamma Function (GAMMA) in Floating Point Format 
(4 bytes) . ERROR CODE: 

- No error. 



1 - 



2 - 



The absolute value of the argument is greater 
than 34. The result of Gamma Function is set 
to zero. 

The argument is within 0.000001 of a pole 
(i.e., zero and negative integers). The 
result of Gamma Function is set to zero. 



Registers Modified: 
ALL 



RAM Required: 
18 bytes 



ROM Required: 
494 bytes 



Maximum Subroutine Nesting Level: 1 (exclusive 

of Floating Point Math Package ) 

Assembler/Compiler Used: 



8080 MACRO Assembler, V.2.4 



Programmer: William D. Becher 
& Joseph W. Wilhelm 



Company: 

The Univ. of Michigan-Dearbotn 



Address: 



4901 Evergreen Rd. 



City: 

Dearborn , 



State: 
Michigan 



48128 



© Intel Corporation, 1976 
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98-034D 

5-305 



insitg " INTEL * users LIBRARY submittal form 

□ 8008 D 8048 (^^080/8085 D 8086 D Other 



Ref. #BB49 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(us* additional shMts if necessary) 



PLM MULTIPLE PRECISION ARITHMETIC 

Multiple precision twos complement arithmetic package includes 
addition, subtraction, multiplication, division and convert to 
decimal. The maximum precision is defined by assembly equates, 



8080/8085 



REVISED 3/25/79 



Each subroutine requires the address and length of each field, 
parameters are passed using PLM conventions. See the program 
listing for interface for each subroutine. 



The 



The package performs the required function and stores the output in 
the user designated memory locations. 



Registers Modified: 



ALL 



RAM Required: 



36 Bytes 



ROM Required: 



488 Bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: ISIS-II ASM80 



Programmer: 



J. Hi ley 



Company: 



Vector International 



Address: 



Research Park 



City: 



B-3044 Haasrode 



State: 



Belgium 



8/79 

© Intel Corporation, 1978 



5-307 



insite 



Ref.#BB50 

INTEL USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 n 8048 □ 8080/8085 □ 8086 □ Other 



(use additional sheets if necessary) 



MATH48 

Performs multi-precision arithmetic using the MCS-48 family of 
microprocessors. The operations ADD, SUBTRACT, MULTIPLY and nrvrnr 
are supported using a memory to memory operat onal format Otlll 

Any MCS-48 processor. 



None 



Sis^KHtt-s - fr» 5=w: -'" 



Computed values are deposited in the defined memory locations 



REVISED 7/79 



Registers Modified: A, RO, Rl , R2, R3, R4 

depending on t he funrt inn p Q ^fn rr T)gd 



RAM Required: 



ROM Required 



bytes=4 X precision of data 
96H 



Maximum Subroutine Nesting Level: 2 



Assembler/Compiler Used: /\$M48 V? 1 



Programmer: 



D, Holden 



Company: 



Mil tope 



Address: 



16 Hanrnr k Str^f 



City: 



Plainville 



State: 



MA f)?7fi? 



8/79 

© Intel Corporation, 1978 



5-309 



Ref.#BC27 



insite ,NTEL * USERS library submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 □ 8048 ID 8080/8085 □ 8086 □ Other 



— (um additional »h—\t If nacaasary) 



Acquisition of a Decimal Number from MDS Console, Conversion to FPAL 
Floating Point Number and Vice Versa 

(See reverse page 5-312) 



MDS 800 System 



ntel FPAL Library 



Decimal number from MDS Console 



Floating point decimal number on MDS Console 



Available on non-system 
diskette only for $35.00 
(source & object code included) 



Registers Modified: 



ALL 



RAM Required: 



5FH 



ROM Required: 



D9EH 



Maximum Subroutine Nesting Level: 

I SIS- 1 I 8080/8085 
Assembler/Compiler Used: Macro Assembler V2.0 



Programmer: G>DeGrandj ^ N>Coppo 



Company: Commission or buropean 
Communities JRC Est, of Ispra 



Address: Electronics Division 



City: 



21020 Ispra (Varese) 



>&f$* 



TALY 



© Intel Corporation, 1978 

12/78 



98-034 E 

5-311 



Ref.#BC27 



The program consists of a set of relocatable modules and performs a 
conversion from an ASCII string to a floating point number in the 
Intel floating point format and vice versa. The converted ASCII string 
represents a floating point decimal number. The modules can be linked 
together to implement a particular function. A test program is included 
which acquires a decimal number from the console of an MDS system, 
converts it into a floating point number in the Intel FPAL format, then 
converts it back into a ASCII string which represents a floating point 
decimal number to be output on the console. The program entails the 
fol lowi ng modu les: 

TCOFLO : a test module which calls all the routines which are 
necessary for the above mentioned conversion. 

ASCFL : the routine acquires a decimal number from console 
and converts it into an Intel FPAL floating point 
number. 

COFLO : the routine converts an Intel FPAL floating point 
number into an ASCII string representing a decimal 
floating point number. 

FBFBCD : the routine converts an Intel FPAL floating point 
number into a packed BCD floating point number. 

BCDASC : the routine converts a packed BCD string into an 
ASCI I string. 

Moreover, the modules use : a mathematical library which contains a 
multibyte shift routine, multibyte clear, multibyte addition and BCD 
adjust ; I/O routines. 



12/78 



5-312 



Ref.#BC28 



falsity WTEL * USERS library submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 □ 8048 B 8080/8085 □ 8086 □ Other 



(ust additional shots If nscsssary) 



Double Precision Floating Point Package (DFPAL.LIB) 

To expand FPAL.LIB to include double precision functions 



MDS-800 with DOS 



ISIS II, FPAL.LIB 



See manual 



See manua 



Registers Modified: 



RAM Required: 



ROM Required: 



Available on non-system 
diskette only with manua 
for $45.00. 



Maximum Subroutine Nesting Level: 



L1 ^ I SIS- 1 I 8080/8085 

Assembler/Com piler Used: Assemb | er> y. 2 .0 



Programmer: Larry Brookwell & 
M. Master 



Company: 



University of Ottawa 
Electrical Engrg. Dept. 



Address: 



770 King Edward Ave. 



City: 



Ottawa, Ontario 



State: 



Canada KIN 6N5 



© Intel Corporation, 1978 

2/78 



98-034E 

5-313 



insite 



Ref.#BC29 

INTEL' USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D 8048 fi 8080/8085 D 8086 D Other 



(um additional shMts If necessary) 



Discrete Fourier Transform 



DFT.SR is an 8080 Assembly language subroutine implementing the 
forward and inverse Fourier transform of a complex data vector. 
The subroutine executes a Fast Fourier Transform algorithm 
originally written in FORTRAN by Cooley, Lewis and Welch. 



8080 CPU 



Floating Point Packages references BC1, BC2 and BC14 



DFT 

IDFT 

XR 

XI 

N 



XR 

XI 

N 



entry point for the forward transform, 
entry point for the inverse transform, 
real part of the input vector (size N array), 
imaginary part of the input vector (size N array), 
number of data points in the input vector (must 
be a power of 2) . 



real part of the output vector (size N array) 
imaginary part of the output vector (size N array) 
number of data points in the output vector 



Registers Modified: 



Al I 



RAM Required: 



2052H 



ROM Required: 



377H 



.. . ~ 3 without nes 

Maximum Subroutine Nesting Level: ( j ue ^. Q ppp 



U1 , 16K ISIS Assembler 

Assembler/Compiler Used: Version 1 1 



Programmer: Lou j s q i I I es Durand 



Company: Institut de Recherches 
Cliniques de Montreal 



Address: 



110 ouest Avenue des Pins 



i ng 
City: 



Montrea I , Quebec 



State: 



Canada H2W 1R7 



© Intel Corporation, 1978 

2/78 



98-034 E 

5-315 



insite 



BC 30 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D 8048 *3 8080/8085 D 8086 D Other 



(use additional sheets If necessary) 



FCONST — Floating Point Constant Calculator 



The routine calculates and displays on the console 4 byte 
floating point constants equivalent to fixed-point or scientific 
notation numbers entered by the operator. These can then be 
used in PLM data statements or assembeler DB statements. 



MDS, Console, Floppy Disk System 



ISIS-II. Program is located above ISIS and is called by 
entering FCONST 



Fixed point or scientific notation numbers, entered on console 
e.g. 1.09, 10.5E-20 



4 Bytes HEX constant displayed on console 
e.g. F2, 04, 35, 3F 



Data is displayed as it would be used in PLM or Assembler 
e.g. DCL CONST (4) BYTE DATA (0F2H, 04H, 35H, 3FH) ; 
or CONST: DB OF 2H, 04H, 35H, 3FH 



Registers Modified: 


Programmer: J# B# p age 


RAM Required: 3743 BYTES 


Company: pi eS sey Marine 


ROM Required: 


Address: Templecombe 


Maximum Subroutine Nesting Level: 


Clty: Somerset 


Assembler/Compiler Used: ptmqq ^3 1 


State: U#K# 



© Intel Corporation, 1978 

2/79 



5-317 



BC 31 



■ —■ T.M 

insite 



INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D8048 □ 8080/8085 CX8086 □ Other 



(un additional shaatt if nacaaaary) 



FPAL86.LIB - FLOATING POINT LIBRARY 



Provides the exact same operations as 8080/8085 Floating- 
Point arithmetic library for 8086 based software. The routines 
must be called from and linked to an 8086 assembly language or 
PL/M-86 language program. 



An MDS or Series- 1 1 for assembling, compiling, linking, 
locating 8086 based programs. Plus hardware necessary to 
execute 8086 code. 



MDS-311 8086 software support package. 



Same as 8080/8085 FPAL. 



Same as 8080/8085 FPAL. 



$50.00 (object code 
only on diskette) 



Registers Modified: 

All 


Programmer: 


RAM Required: 'Otal FPAL. 86LIB USeS 

6811 bvtes 


Company: 


ROM Required: 


Address: 


Maximum Subroutine Nesting Level: 


City: 


Assembler/Compiler Used: ASM86, PLM86 


State: 



© Intel Corporation, 1978 



2/79 



5-319 



Ref. # BB52 



insitg " INTEL: users library submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 □ 8048 S 8080/8085 □ 8086 □ Other 



(um additional shaata if nacaaaary) 



BINGRY - BINARY TO GRAY CODE CONVERSION SUBROUTINE 

Converts binary number to Gray cyclic code. Number can be 16 bits 
long / unused bits = /. 

Algorithm: G ± = B ± + B , where i=0, 1,2,.., 15 

G....ith bit of Gray number 
B....ith bit of binary number 

any 8080 Microcomputer 



None 



Binary number stored in regs. D, E 
/E0 ... LSB, unused bits = / 



Gray cyclic code in D,E 



Registers Modified: 



A.D.E 



RAM Required: 



None 



ROM Required: 



0CH 



Maximum Subroutine Nesting Level: * 



Assembler/Compiler Used: 



Macro Assembler 
V2.0 



Programmer: 



Nemec D. 



Company: vgE 



Address: 



Pelhrimovska 339/9 



City: 



145 00 Praha 4, Michle 



State: 



Czechoslovakia 



6/79 



5-321 



insite 



BC32A 



INTEL USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D 8048 m 8080/8085 D 8086 D Other 



(use additional stoats if nacassary) 



"FLN" - NATURAL LOG OF INTEL FLOATING POINT NUMBER 

Takes natural LOG (LN(X)) of number in floating point record (FPR) 



MDS 800 with ISIS-II linking loader 



Intel "FPAL.LIB", Intel LINK & LOCATE, PL/M80 Compiler 



Pass pointer to 18-byte "FPR" in B,C registers 
PL/M80 call: CALL FLN (.FPR) 



Places natural log of contents of "FPR" into the "FPR" 
NOTES : 

1) Has not been compiled as "REENTRANT" 

2) May be added to "FPAL.LIB" if desired 

3) Returns -o» for LN(0) 

4) Does not set error/stat bits for "0" operand 



REF.NOS. BC32A,B,C 
ORDERED AS ONE 
PROGRAM 



Registers Modified: ^L 


Programmer: Bart Evans 


RAM Required: Variables: 28 Stack:2 


Company: Durrum Instrument 


ROM Required: Code . 462 


Address: 122 8 Titan Way 


Maximum Subroutine Nesting Level: i 


Clty: Sunnyvale 


Assembler/Compiler Used: p;rj480 V3 


State: CA q 4086 



© Intel Corporation, 1978 

4/79 



5-323 



insite 



BC32B 



INTEL" USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D 8048 § 8080/8085 D 8086 □ Other 



(use additional sheets If necessary) 



"FSQR" - SQUARE ROOT OF INTEL FLOATING POINT NUMBER 

Extracts square root of number in floating point record (FPR) 



MDS 800 with ISIS-II linking loader 



Intel "FPAL.LIB", Intel "LINK" & "LOCATE", PL/M80 Compiler 



Pass pointer to 18-byte "FPR" in B,C registers 
PLM80 CALL: CALL FSQR (.FPR) 



Places square root of absolute value of contents of "FPR" 
into the "FPQ" 

NOTES : 

1) Has not been compiled as "REENTRANT" 

2) May be added to "FPAL.LIB" if desired 

3) Does not set error/stat bits for negative operand 



REF.NOS. BC32A,B,C 
ORDERED AS ONE 
PROGRAM 



Registers Modified: AJT 


Programmer: Bart Evang 


RAM Required VARIABLES . ^ ^^ ^ 


ompany. p urruiI1 Instrument 


ROM Required: C0DE: 330 


Address: 122g Titan Way 


Maximum Subroutine Nesting Level: , 


City: c t 
Sunnyvale 


Assembler/Compiler Used: PLM80, V3.0 


State: CA 94086 



© Intel Corporation, 1978 

4/79 



5-324 



BC32C 



inSJV INTEL * USER'S LIBRARY SUBMITTAL FORM 



□ 8008 □ 8048 B 8080/8085 D 8086 □ Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



- (use additional sheets if necessary) 



"■pfVD" 



FEXP" - NATURAL EXPONENT OF INTEL FLOATING POINT 



NUMBER 



Takes natural exponential (e K ) of number in floating point 
record (FPR) 



MDS 800 with ISIS-II linking loader 



Intel "FPAL.LIB", Intel "LINK" & "LOCATE", PLM80 Compiler 



Pass pointer to 18-byte "FPR" in B,C registers 
PLM80 CALL: CALL FEXP (.FPR) 



Places natural exponential of contents of "FPR" into the "FPR" 
NOTES : 

1) Has not been compiled as "REENTRANT" 

2) May be added to : FPAL.LIB" if desired 



REF.NOS. BC32A,B,C 
ORDERED AS ONE 
PROGRAM 



Registers Modified: 



ALL 



RAM Required: 



VARIABLES: 25 STACK: 2 



ROM Required: 



CODE: 498 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



PLM80, V3.0 



Programmer: 



Bart Evans 



Company: 



Durrum Instruments 



Address: 



1228 Titan Way 



City: Sunnyvale 



State: CA 94086 



© Intel Corporation, 1978 

4/79 



5/325 



insite 



Ref.#BB52 

INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 □ 8048 $)B080/8085 □ 8086 □ Other 



(use additional sheets if necessary) 



BINGRY - BINARY TO GRAY CODE CONVERSION SUBROUTINE 

Converts binary number to Gray cyclic code. Number can be 16 bits 
long / unused bits = /. 

Algorithm: G i = B. + B 1+] , where i=0, 1,2, ...,15 

G. ...ith bit of Gray number 
B.j ...ith bit of binary number 

Any 8080 Microcomputer 



None 



Binary number stored in regs. D, E 
/E0 ... LSB, unused bits = / 



Gray cyclic code in D, E 



Registers Modified: 



A, D, E 



RAM Required: 



ROM Required: 



None 
0CH 



Maximum Subroutine Nesting Level: 



3. 



Assembi^TC ompHer Used: ffi™ Assembler 



Programmer: 



Nemec D. 



Company: 



VSE 



Address: 



Pelhrimovska 339/9 



City: 



145 00 Praha 4, Michle 



State: 



Czechoslovakia 



8/79 

© Intel Corporation, 1978 



5-327 



insite 



Ref. BB53 

INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



□ 8008 □ 8048 $ 8080/8085 □ 8086 □ Other 



(um additional shaata if nacaaaary) 



MTL DIV - SUBROUTINES 

1. Multiplication of two 24 bit Binary numbers to give a 48 Bit result. 

2. Integer Division of a 48 Bit Binary number by a 24 Bit Binary 
number. 

Any 8080 or 8085 CPU 



See Listing 



Output 

Results see Listing 



Registers Modified: 



ALL 



RAM Required: 



12 1Q Bytes 



ROM Required: 



259 1Q Bytes 



Maximum Subroutine Nesting Level: 1 

8080/8085 Macro 

Assembler/Compiler Used: Assembler V2.0 



Programmer: 



Ken Bartlett 



Company: 



Acurex Corporation 



Address: 



485 Clyde Avenue 



City: 



Mountain View 



State: 



California 94042 



8/79 

© Intel Corporation, 1978 



5-329 



Ref. BB54 



■nSltg INTEL * "SERS LIBRARY SUBMITTAL FORM 

D 8008 X3i 8048 □ 8080/8085 □ 8086 □ Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(us* additional sheafs if necessary) 



SQUARE ROOT FOR MCS-48 

This routine generates an 8 bits root of a 16 bits number. 



None 



None 



16 bits binary number in R2, R3, 
MSBYTE in R2, LSBYTE in R3. 



8 bits root in R6 



Registers Modified: 



ALL 



RAM Required: 



ROM Required: 



4 bytes 
96 bytes 



Maximum Subroutine Nesting Level: o 



Aigra^Bfl/fl-" *£<> Assembler 



Programmer: 



SUSutnU Urata 



Company: 



TOA Microcomputer Inc. 



Address: 



5-61 Nipponbashi, Naniwa 



City: Osaka 556 



State: 



8/79 

© Intel Corporation, 1978 



Japan 



5-331 



insite 



Ref. BC33 

INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 □ 8048 ffl 8080/8085 □ 8086 □ Other 



(uaa additional ahaata If nacaasary) 



FLOATING POINT LOAD AND STORE SUBROUTINES 

Six routines to assist in storing and loading floating point numbers as 
defined in the INSITE floating point packages (Ref. #BC5) 



None 



None 



See Program Listings for: 

1. SHIFT - Shift contents of CDE into BHL registers. 

2. EXCH - Exchange BHL and CDE registers. 

3. STONE - Store one floating point number in a buffer. 

4. STARY - Store a floating point in an array of numbers. 

5. LDONE - Load one floating point number from a buffer. 

6. LDARY - Load a floating point number from an array of numbers 



Registers Modified: 



CDE, BHL 



RAM Required: 



8 Bytes on stack 



ROM Required: 



98H bytes 



Maximum Subroutine Nesting Level: ] 



As ^ /CompilerUsed: ng, M grn 



Programmer: 



F,M. Cady 



Company: 



DePt. Of Elec. Fnginpp r inr 



Address: 



University of Canterbury 



City: 



Christchurch 1 



State: 



New Zealand 



8/79 

© Intel Corporation, 1978 



5-333 



SECTION 6 



CROSS PRODUCTS SOFTWARE 



REFERENCE PROGRAM PAGE 

NUMBER 

C2 CROSS ASSEMBLER FOR PDP-11 6-1 

C5 80O8 MACRO DEFINITION SET FOR ASSEMBLV ON PDP-11 .... 6-3 

C8 CROSS ASSEMBLER FOR THE PDP-11 6-5 

C9 CROSS ASSEMBLER FOR NOVA 120© 6-7 

CIO CROSS ASSEMBLER FOR NOVA 1220, IBM 360/40 AND CDC 3300 . 6-9 

Cll NOVA CROSS ASSEMBLER FOR INTEL 8080 6-11 

C13 8008 CROSS INVERSE ASSEMBLER FOR HP210O 6-13 

C17 PL/M 80 PASS 3 6-21 

CIS CROSS ASSEMBLER FOR VARIAN DATA MACHINE 6-23 

C19 INTEL TO OCTAL CODE CONVERSION FOR PDP-11 6-25 

C20 HEX CONVERT — CONVERT INTEL HEX FORMAT TO PROLOG 

HEX FILE CONVERTER 6-27 

C21 PDP-11 BINARV FILE TO INTEL HEX FILE CONVERTER 6-31 

C22 PDP-11 PROGRAM LOAD TO HEX, DUMP, VERIFV 6-33 

C23 FORMAT 6-35 

C24 8080 CROSS-ASSEMBLER FOR TEKTRONIX 4051 6-37 

C25 18080 CROSS ASSEMBLER FOR INTEL 8080/8085 

MICROPROCESSORS 6-47 

C26 MACRO ASSEMBLER FOR DG NOVA 6-49 

C27 SVMBOL CROSS-REFERENCE 6-53 

C28 ALIGN PROGRAM - INTERMEDIATE 6-59 

C29 8085 CROSS ASSEMBLER FOR THE DEC PDP8 AND PDP11 6-63 

C30 8008 CROSS ASSEMBLER FOR 8085-MACRO DEFINITION SET — 

M8008. SRC 6-65 

C31 CROSS ASSEMBLER FOR HONEYWELL H316/516/716 6-69 

C32 CROSS ASSEMBLER FOR INTERPRETIVE MCS-48 6-71 

C33 SIM48 - 8048 SIMULATOR 6-74 

C34 8085 CROSS ASSEMBLER FOR NOVA 1200 6-76 

C35 RTCOPV - COPY FROM PDP-11 DISKETTE <RT-11> TO 

ISIS-II DISKETTE FILE 6-78 



:*:+:*:* SPECIAL NOTE **** 

ALL DISKETTES PROCESSED BV INSITE USERS LIBRARY 
ARE ISIS-II FORMATTED. 



8/79 



iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref.no. c 2 



□ 4004 Q8008 (^8080 □ 4040 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



CROSS ASSEMBLER ON PDP-11. 



PERFORMS SYMBOLIC ASSEMBLY FOR 8080 ASSEMBLY LANGUAGE PROGRAMS. 
PROGRAM RUNS ON ANY DEC PDP-11 WHICH SUPPORTS THE MACRO ASSEMBLER. 



DEC PDP-11 CAPABLE OF SUPPORTING THE MACRO ASSEMBLER AND 4K WORDS 
OF MEMORY FOR MACRO DEFINITIONS. 



PDP-11 MACRO ASSEMBLER, PLUS SUPPORT SYSTEM; E.G., DOS OR RSX. 



ASSEMBLY LANGUAGE PROGRAM FOR THE INTEL 8080. 



ASSEMBLED LISTING AND/OR PDP-11 FORMAT BINARY LOAD MODULE. 



Registers Modified: 
N,A. 



RAM Required: 



N.A. 



ROM Required: 



N.A. 



Maximum Subroutine Nesting Level: 
N,A. 



Assembler/Compiler Used: 

PDP-11 MACRO ASSEMBLER 



Programmer: 

JOHN ANDERSON & WILLIAM GALWAY 



Company: UNIVERSITY QF UTAH 

DEPARTMENT OF CHEMISTRY 



6-1 



intJ 



MICROCOMPUTER 
LIBRARY SUBMITTAL FORM 



Ref. No. 



C5 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 £x8008 □ 8080 



(use additional sheets if necessary) 



8008 Macro Definition Set 

Permits cross assent) ly of 8008 programs on a PDP-11. 



Any PDP-11 with 16K core and the Macro Assembler. 



Macro Assembler minimum, and RT-11 operating system optional (instruc- 
tions assume RT-11). 

Program source using PDP-11 delimiters (colon after labels, semicolon 
preceding comments). Assembled program must be in absolute form. See 
listing for appropriate pseudo-ops 'required in program. 



Assembled program. Linking loader can be used to generate an absolute 
paper tape of the object code. 

NOTE: Remove macro comments to make more memory available. 



Registers Modified: 

N.A. 



RAM Required: 

N.A. 



ROM Required: 

N.A. 



Maximum Subroutine Nesting Level: 

N.A. 



Assembler/Compiler Used: 



Programmer: 

Tom Seim 



Company: , 

Battelle-Northwest 



Address: 



Box 999 

Richland, Wash. 99352 



£>0348 



iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref No 



C8 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D 4040 D 8008 £] 8080 



(use additional sheets if necessary) 



Cross Assembler for the PDP-11 



The program accepts a source file from any device on the system 
which has been prepared by the user according to the syntactical 
rules outlined in the accompanying document, and converts the 8080 
mnemonics into two output files— a hexadecimal file for loading 
into the microprocessor memory, and a listing file. 



Digital Equipment Corp. PDP 11 with RSTS BASIC-plus. 

-could be modified to operate under any extended BASIC 



An editor for preparation of the source file 



ASCII source file 



Hexadecimal fite— if punched on paper-tape, suitable for loading 
into the microprocessor memory via loader 

Listing file 



Registers Modified: 

N/A 



RAM Required: 



ROM Required: 

N/A 



Maximum Subroutine Nesting Level: 

N/A 



Assembler/Compiler Used: 

BSflS BASIC-plus 



Programmer: 



G.D. Young 



Company: 

Aanderaa Instruments Ltd. 



Mdnst: 560 Alpha Street 
Victoria, B.C., Canada V8Z 1B2 



98-0348 
6-5 



insite WTEV USERS library submittal form 



Ret. # C9 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



0(8008 □ 8048 m 8080/8085 □ 8086 D Other 



— (use additional sheets If necessary) 



Cross Assembler for Nova 1200 



To serve as a cross assembler enabling the user to assemble programs 
written for the 8008 or 8080 microcomputers, without using a time 
sharing service. 

The program is designed to run on a Data General Nova 1200 mini- 
computer with 16K of memory utilizing Data General Fortran and 
the SHCOS operating system. However, little or no modifications 
would be needed to implement the assemblers on any 16 bit computer 
with Data General Fortran, disk capability, and at least 16K of 
memory . 

Simple to moderate modifications would be required to enable the 
8008 or 8080 assemblers to run on most other 16 bit computers with 
16K memory, disk, and Fortran capability. 



Input file name, Intermediate file name, listing options 

An assembled listing with machine code given in octal 

A paper tape of the object code in HEX for use in loading programs 



REVISED 8/8/77 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



Programmer: n , .. 

Paul Mennen 



Company: Sierra Research 



Address: 24/ Cayuga Road 



City: 



Cheektowaga, New York 



State: 



© Intel Corporation, 1978 
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Ref. # CIO 



insitg" INTEL * "SER'S LIBRARY SUBMITTAL FORM 

D 8008 □ 8048 fc 8080/8085 D 8086 □ Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets If necessary) 



CROSS ASSEMBLER FOR NOVA 1220, IBM 360/40 and CDC 3300 

The CP1 is a one pass cross assembler that will assemble programs written 
using the Intel 8008 or 8080 Microprocessor Assembly Language Instruction 
Sets, any subset of the two, or any user-defined instruction set similar 
to the Intel Assembly Language Syntax. 

A principal objective in the development of the assembler was transpor- 
tability. To achieve this, it is written in a subset of ANSI Standard 
Fortran that allows it to be complied on a wide variety of computers 
ranging from large general purpose systems to minicomputers. It has been 
tested on an IBM 360/40, CDC 3300, and a Nova 1220. Providing such 
generality required that avoidance of certain special features of fortran 
that are compiler dependent but would have increased execution speed. In 
addition to generality with respect to compiling, we allow complete free- 
dom of character sets by reading in character code definitions each time 
that the assembler is executed. 

Another main objective of this assembler was the ability to assemble 
object code for a variety of present and future microprocessors. In 
order to achieve this goal it was necessary to characterize certain types 
of instructions and allow for new types in the future. 

Because the assembler is a one-pass assembler, the source program only 
has to be read once which offers another advantage when assembling on a 
minicomputer equipped with teletype 10 character/sec paper tape input. 
The assembler reads the opcodes at execution time in order to have the 
capacity of producing object code for more than one microprocessor. Of 
course, frequent users of any one instruction set can build a permanent 
data base with the character representations and opcodes available prior 
to execution. 

A search technique called a TRIE-TREE (1,2,3) is used to store the 
identifiers and symbols in the most efficient method possible. This 
search technique requires a minimum of space and it searches and inserts 
very quickly. It was important to have an efficient search method 
because the opcodes are read in at execution time. The object program is 
currently output in the Intel hexadecimal tape format. 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



Programmer: 



Bernard Evans, Ph.D. 



Company: 



Cal Poly 



Address: 



Computer Sciences Dept 



City: 



San Luis Ohispn 



State: 



California 93407 



8/79 
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Cll 



INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D 8048 Jp 8080/8085 D 8086 D Other 



(use additional sheets if necessary) 



NOVA Cross Assembler for INTEL 8080 



To assemble programs written in the INTEL 8080 language and output a 
listing and a paper tape of the assembly. 



DATA GENERAL NOVA minicomputer with 8K or larger memory and an SOS 
or better operating system; teletype and line printer. 



The following DATA GENERAL software: 

1. SOS software drivers for the TTY, LPT or other input device. 

2. Trigger produced by SYSGEN (091-000070-03). 

3. RELOCATABLE MATH LIBRARY (099-000001-02). 

4. OPTIONAL - SOS CASSETTE LIBRARY (099-000041). 

or SOS MAGNETIC TAPE LIBRARY (099-000042). 



This is a two pass assembler. The only inputs in addition to the 
source program are user responses to the questions put forth by the 
assembler with respect to input and output. 

The operating procedure is described in the first several pages of 
the enclosed printout. 

A listing of the source is output to the line printer. A tape of the 
assembly results is output to the teletype paper tape punch. This 
tape may be in BINARY, ASCII OCTAL or BNPF. 



NOTE: The test program can consist of any 8080 source program. 

However, complete verification would require use of a source 
that contains all of the 8080 instructions. 



Registers Modified: ..a 


Programmer: 

Greg A. Head, D.834 (317/353-3243, 


RAM Required: 

NA 


Company: ^ , . . . ,. 

Naval Avionics Facility 


ROM Required: 

NA 


Address: ^ _ 

6000 t. 2lst Street 


Maximum Subroutine Nesting Level: 


City: Indianapolis, Ind. 46218 


Assembler/Compiler Used: 


State: 



© Intel Corporation, 1978 

2/79 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref N ° 



C13 



D4004 ©8008 [3 8080 Q 4040 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



Intel 8008 Cross Inverse Assembler for HP-2100 

This program accepts as input BNPF object code. From this object code, 
it produces a pseudo-assembler listing containing: memory location, 
NP object input and the mnemonic derived from the BNPF object code 



Hewlett-Packard 2100 family computer, 4K, Teleprinter, Photoreader. 



HP Assembler for assembly. 
Program is self-contained. 



BNPF object code (see attached sheet) 



Pseudo-Assembler output in the following format: 

(page #) (space) (character #)(space)(NP constant) (space) (source mnemonic) 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

HP Assembler 



Programmer: 

Roger J. Walker 



Company: 



847 ORTNAC, Concord, Mdss. 01742 | c/o Concord-Carlisle High School 



6-13 



PROGRAM DELETION 



Please note that page 6-15 thru 6-20 have been deleted 
from your Ins it e Manual. 



inlet 



MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM **• *>. en 



D 4004 D4040 D8008 K) 8080 



Program 
Title 

Function 



Required 
Hardware 



(use additional sheets if necessary) 



PLM 83 (PLM/80 PASS 3) 

i I o*! r " liStS /v M source lines vith the resulting assembly 
language and hex ma*. & <=muxy 



None 



Required 
Software 



Input 
Parameters 



PLM 81 & PLM 82 (P.LM/80 PASS 1&2) 



PLM/80 pass 1 listing, PLM/80 pass 2 listing & Hex fil, 



Output 
Results 



TEST 
METHOD 



1) inter-listed file 

2) Alphabetical symbol table 

at?aohed? PUt & ° UtPUt " leS f ° r Intel S * Uare Root Pr °« r «»» 



Registers Modified: 

N.A. 



RAM Required: 

N.A. 



Assembler/Compiler Used: 

Fortran 

(IBM/360, SIGMA/9, PDP/10 ) 



ROM Required: 

N.A. 



Maximum Subroutine Nesting Level: 

N.A. 



Programmer: 

B. Searle 



Company: 

Ministry of Transport (CANADA) 



Address: TACD, Tower C, Place de r ille 
OTTAWA, ONTARIO, CANADA K1A ON. 



984)348 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



C18 



D 4004 D 4040 D 8008 $ 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Cross Assembler for Varian Data Machines 

Translates symbolic 8080 Code by using Macros for 
each Instruction 



V73, V74 or V75 Varian Data Machine 



DASMR Varian Assembler Language Processor 
VORTEX Varian Omnitask Real-time Executive 

Symbolic Code for 8080 CPU 



Output 
Results 



Code in Varian Object Module Format, one word of 16 bits 
is reserved for one byte. 

Assembler Listing 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

DASMR 



Programmer: 

Walter Heil 



Company: QeSELLSCHAFT FUR 

Kernforschung/ADI 



Address: ^QQ Ka RL SR UH E 

West Germany 



P.B. 3640 



98-034B 
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MICROCOMPUTER USER'S 
JnfcskL LIBRARY SUBMITTAL FORM Ref .no. 



C19 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 H 8008 S 8080 □ 3000 



(use additional sheets if necessary) 



Intel to Octal Number Conversion (OCT) 

This Fortran IV program converts source code containing Intel 
numbers (binary, octal, decimal & hexadecimal) into source 
code containing only octal numbers. The program is designed 
to run on a PDP-11 & can produce a source code which can be 
assembled by the PDP-11 Macro Assembler. 



PDP-11 computer with disk 



RT-11 

Fortran IV compiler 

System Library Subroutines 



INPUT FILE* (enter name of file with Intel numbers) 
OUTPUT FILE* (enter name of file to contain octal number source 
code) 



An output file will be created which will contain the octal 
number source code 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
PDP-11 Fortran IV 



Programmer: 
Jim Ahern 



Company: 

Standard Memories 



Address: 



2221 So. Anne St. 
Santa Ana, Ca. 92704 



98-034C 
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MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM Ref. no. czo 



E 4004 Ql 4040 XI 8008 CD 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



Hexcnvrt 



( Hex Convert) 



Convert the Hexadecimal object file produced by the Intel 
cross product assemblers to the Hexadecimal format required 
by the Prolog Corp. Model 810 and series 90 Prom Programmers 



Time sharing system or other computer system with capability 
of running Intel cross product software. 



Fortran IV 

(Source program may have to be modified for other compilers) 



"LOGBIN" File produced by Intel Macro assembler (see attachec 
sheets) . 



"Prolog" File (see attached sheets) 



Registers Modified: 


Assembler/Compiler Used: 

GE Mark III Timesharing 




RAM Required: 


Programmer: 

Joseph Parchesky 




ROM Required: 


Company: 

Datatype Corporation 




Maximum Subroutine Nesting Level: 


Address: 

Miami, Florida 33169 



9*0348 
6-27 



RET. NO. C20 

PROGRAM TITLE HEXCONVERT 



100+PROGRAM TO CONVERT THE INTEL HEXADECIMAL 
110+OBJECT FILE (LOGBIN) FORMAT TO A HEXADECIMAL 
120+FORMAT SUITABLE FOR INPUT TO THE PROLOG 
130+MODEL 8 10 PROGRAMMER - PROLOG REQUIRES A 4 
140*CHARACTER CODE FOLLOWED BY A CARRIAGE RETURN 
150+THE INTEL MAC4 ASSEMBLER PROVIDES A BLOCKED 
160*FORMAT AS DESCRIBED IN THE EXTERNAL REFERENCE 
170+SPECIFICATION 4004/4040 MACRO ASSEMBLER N0V74 
180* (ALSO NOTE SPACE BEFORE COLON) 
190* 

200*INPUT FILE IS LOGEIN 

210*OUTPUT FILE IS PROLOG (WHICH USER MUST CREATE) 

220* 

230*ON GE MARKIII TIME SHARING* WHEN LISTING FILE 

240+TO TELETYPE PUNCH, USE "TYPE 6" COMMAND TO 

250+INHIBIT DELETE CODES ON TAPE AND KEEP IT AS 

260+SHORT AS POSSIBLE. 

270* 

280* 

290+INITIALIZE THE HEX VARIABLE 



300 

310 

*>20 

^30 

340 

350 

360* 

370*MAIN 

380 

390 

400 

410*INPUT 

420 420 

430 430 

440*CHECK 

450 

460 

470 

480+CHECK 

490 490 

500 

510 

520 520 

530*^1 IS 

540 540 

550+J2 IS 

560 



BLOCK DATA 
ALPHA HEXA(16) 
COMMON/LABEL/HEXA 
DATA HEXA/"0","1'\ 

END 



'8' 



•A' 



'B' 



PROGRAM 
hLPHA CHAR(24),PAGE,A(16),B( 16),C 
DATA C/0015000000000/ 
PAGE=" •• 

LINE FROM LOGBIN. FILE 
READ ("LOGBI N", 430) CHAR 
F0RMAT(A2,2A1,A2,2A1, 18A2) 
FOR END OF FILE 

NE." :")GOTO 690 
NE."0")GOTO 490 
EQ^'O'^GOTO 690 
IN MEMORY PAGE 
EQ.PAGE)GOTO 540 
PAGE=CHAR(4) 
WRITEC'PROLOG", 520)PAGE 
FORMATCVS/A'-PROM PAGE ",A2,//) 
NUMBER OF BYTES IN LINE (DECIMAL) 
CALL CNVRTHEX(CHAR(2),CHAR(3), Jl) 
STARTING ADDRESS OF LINE (DECIMAL) 
CALL CNVRTHEX(CHAR(5),CHAR(6),J2) 



IF(CHAR( 1) 
IF(CHAR(2) 
IF(CHAR(3) 
FOR CHANGE 
IF(CHAR(4) 



6-29 



570*WRITE LINE TO OUTPUT FILE 

589 580 DO 630 1=1, Jl 

59f) J3=J2+I-1 

609*J3 IS BYTE ADDRESS (DECIMAL) AND IS CONVERTED 

610*BACK TO HEX 

620 CALL CNVRTDEC(J3,ACI),BCI)) 

633 630 CONTINUE 

640 WRITE("PROLOG",650)CACI ) , B( I ), CHARC 1*7 ), C, 1=1* Jl) 

659 650 FORMATC 1 6< A 1 , A 1 , A2, Al ) ) 

660+REPEAT NEXT LINE 

670 670, GOTO 420 

680+END OF FILE 

690 690 WRITE<"PROLOG",700) 

700 700 FORMATC"/",//, "EOF",//) 

710 ENDFILE "PROLOG" 

720 STOP 

730 END 

740* 

TO DEC 



750+SUBROUTINE TO CONVERT HEX CHARACTERS 


7 60 




SUBROUTINE CNVRTHEXC G, H, K ) 


770 




ALPHA G,H,HEXA<16) 


780 




COMMON/LABEL/HEXA 


790 




INTEGER IHEXC16) 


800 




DATA IHEX/0, 1,2,3,4, 5, 6,7,8,9, 


<?10 




DO 8 60 1=1, 16 


420 




IF(G.NE.HEXACI))GOTO 860 


830 




DO 850 J=l, 16 


S40 




IF(H.EQ.HEXA(J))GOTO 870 


850 


850 


CONTINUE 


860 


860 


CONTINUE 


870 


870 


K=IHEXCI)*16+IHEXCJ) 


880 




RETURN 


890 




END 


900* 






910+SUBROUTINE TO CONVERT DECIMAL NUMBER 


920 




SUBROUTINE CNVRTDECC J, X, Y ) 


930 




COMMON/LABEL/HEXAC 1 6) 


940 




ALPHA X,Y,HEXA 


950 


950 


DO 970 N=l, 17 


960 




IF< (J+ 1 6)- (N* 16)) 1010,980, 970 


970 


970 


CONTINUE 


980 


980 


X=HEXA(N) 


990 




Y=HEXA(1) 


1000 




RETURN 


1010 


1010 X=HEXA<N-1> 


1020 




Y=HEXACCJ+17)-(N-1)*16) 


1930 




RETURN 


1040 




END 



10, 1 1, 12, 13, 14, 15/ 



TO HEX 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref No 



C21 



D 4004 □ 4040 D 8008 8^8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



PDP-11 binary file to INTEL HEX file converter. 

Using PDP-11 MACRO to assemble 8080 programs leaves the user with 
a PDP-11 binary file containing the object code. This program converts 
the absolute binary file to an INTEL HEX file suitable for input to 
either INTERP/80 or an INTELLEC system. 



PDP-11 with an operating system 
disk, papre tape reader /punch 



a set of macro definitions defining the 8080 instruction set 

CX8-2) is a possible set 
PDP-11 FORTRAN and MACRO 



PDP-11 absolute binary tape (program could be modified to read 

from another source) 
output file name 
number of bytes per line in the output file 



INTEL HEX file for use with INTELLEC or INTERP/80 



Registers Modified: 


Assembler/Compiler Used: 

PDP-11 FORTRAN and MACRO 


RAM Required: 


Programmer: 

Rex Tracy 


ROM Required: 


Company: Co i ora do State University 
Electrical Engr. Dept/ 


Maximum Subroutine Nesting Level: 


Address: „«,-«« 
Ft. Collins, Co. 80523 



98-034B 
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Ref. # C22 



■nSlte " INTEL * USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 08080 D3000 □ Other. 



(use additional sheets if necessary) 



PDP-11 Program- to load Intel Hex programs and dump and verify 
the programs in binary format suitable for PROM programming. 

The program has three parts. LOADHX reads the Hex format 
programs into the PDP-11 core store. DMPBIN punches out in 
PROM binary format parts of the program in the PDP-11 core 
store. VERIFY reads and compares the tape produced by DMPBIN 
with the core store contents. 

DEC PDP-11 computer with 8K store and a high speed reader and 
punch. (Could be used with ASR 33 Teletype only with minor 
modifications ) 



Only requires Absolute Loader. The program occupies absolute 
core locations 200-676 and uses the rest of the store as a 
buffer area to load the Intel Hex programs. 

LOADHX With Intel Hex tape in reader 

Press Comment 



SR 

000200 

XXXXXX 



ADDRESS LOAD 
START 



DMPBIN Punch out binary tape 



SR 

000500 

XXXXXX 



Press 



Starting address 
Buffer offset in SR 



Comment 
Starting address 



ADDRESS LOAD 

START Buffer offset in SR 

When the computer halts 
YYYYYY CONT No. of bytes to be punched 

VERIFY With binary tape in the reader 

Press 



SR 

000600 

XXXXXX 



ADDRESS LOAD 
START 
When computer halts 
YYYYYY CONT 



Comment 
Starting address 
Buffer offset in SR 

No. of bytes to be verified 



Halts at the following locations are faults :- 
LOCATION REASON 



246 
652 
4i+6 
472 



Checksum error in reading Intel Hex codje 
Verification error 

Reader error, taut tape or no tape 
Punch error, punch no ON or out of tape 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: MAC 80 to generat<»State 



Intel Hex code; PAL11A to pro- 



Programmer: 

A. W. J. Griffin 



Company: 
Simulation Systems 



Address: 
18 Park Avenue 



City: 
Paisley 



Strathclyde PA2 6 PL U.K. 



© .nto^JffinfW DMPB IN/VERIFY 
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Ref. § C 23 

inSJt^" INTEL * USERS LIBRARY SUBMITTAL FORM 

D4004 D4040 D80Q8 Q8080 D3000 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



FORMAT 



Converts Varian object format produced by DASMR for the 
INTEL 8080 CPU to HEX file format. The program is used 
in conjunction with the set of macros, which define the 
80 80 instructions for the Varian assembler, 
(see contribution C18 in this library) 

V73, V74, or V75 Varian Data Machine 



DASMR Varian Assembler Language Processor 
VORTEX Varian Omnitask Realtime Executive 



Inputfile: binary output of DASMR 



INTEL HEX file of objectcode 

on LP and/or PTP for use with INTELLEC 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
DASMR 



Programmer: 
R. G. Knoepker 



Company: uesellscnart- rur 



Kernfors chung/ IDT 



Address: 
P.O.B 



3640 



City: 
7500 KARLSRUHE 



State: 
West Germany 



lnt«l Corporation. 1976 
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Ref. # C24 



iflSitg" INTEL * "SERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 08080 D3000 □ Other. 



(use additional sheets if necessary) 



8080 CROSS-ASSEMBLER FOR TEKTRONIX 405 



This program assembler Intel 8080 source code producing a listing 
and (optionally) an object file. 



Tektronix 4051 Graphic System with 16K or larger memory, 
Tektronix 4924 tape unit (optional) 



See Attachment 



Source Listing available only. Program 
not available on Paper Tape or Diskette, 





Registers Modified: 


Programmer: 

Bruce W. Bomar 


RAM Required: 


Company: 

AR0, Inc. 


ROM Required: 


Address: 

Arnold AF Station 




Maximum Subroutine Nesting Level: 


City: 


Assembler/Compiler Used: 
Extended BASIC 


State: 

TN 37389 


© Intel Corporation, 1976 

4/77 
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8080 CROSS-ASSEMBLER FOR TEKTRONIX 4051 

HARDWARE REQUIREMENTS: 

A Tektronix 4051 Graphic System with 16K or larger memory. A Tektronix 
4924 tape unit (optional) may be included to save the hexadecimal output code 
from the assembler. An extended function editor ROM (Number 4051R06) (optional) 
may be included to edit the assembly language program. 

DESCRIPTION: 

This cross-assembler accepts Intel 8080 microprocessor assembly language 
instructions (as described in the Intel 8080 Microcomputer Systems User's 
Manual) and provides an output listing with line number, address, and hexadecimal 
code. With an optional 4924 tape unit, the hexadecimal code may be saved on 
magnetic tape for listing in table format at the end of program assembly and for 
entry into an 8080 based microcomputer. 

Input to the assembler is from the 4051 internal magnetic tape unit. 
Output is to the 4051 CRT diaplay. (Hexadecimal code is also output to a mag- 
netic tape file in systems using a 4924) . 

The assembly language program must be placed on a file, F, of magnetic 
tape within the 4051 internal tape unit prior to using the assembler. This can 
be accomplished using either the optional ROM editor or the following 4051 
program: 

100 FIND F 

110 INPUT X$ 

120 PRINT @33:X$ 

130 GO TO 110 

140 END 



6-39 



-2- 

This program is initiated by typing RUN and is terminated by pressing the 
"break" key after the program has been typed in. Note that the program file, 
F, must be marked large enough to hold the assembly language program (approximately 
72 times the number of program lines = number of bytes required) prior to running 
the above program. 

The format for the assembly language program must be as follows: 
Columns 1-6 Symbol followed by ":" 

Column 7 Space 

Columns 8-11 Instruction mnemonic 
Column 12 Space 

Columns 13 - Operand 

An entire line of the assembly language program may be a comment if a ";" 
is placed in column 1. The portion of a program line after the operand may 
also represent a comment by following the operand with one or more spaces and a 
";" followed by the comment. 

Valid entries in the symbol field must begin with a letter of the 
alphabet and may contain alphanumeric characters but must not contain special 
characters (such as punctuation characters or spaces and tabs) . Each 
symbol must be five characters or less in length followed by a ":". The assembler 
is dimensioned to permit the use of as many as 150 symbols on a 16K machine. 
On larger memory machines this number can be increased by adding 6 to the 
dimension of S$ and 1 to the dimenion on S for each additional symbol table entry 
permitted. The value for comparison against K in line 285 of the assembler 
should be set to the maximum permissible number of symbol table entries. 
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-3- 



Valid entries in the instruction mnemonic field are elements 
of the 8080 instruction set and the following assembler-control mnemonics: 
ORG - Set the address counter to the operand field value. 
EQU - Equate a symbol to the operand field value. 
DW - Define word (two bytes) equal to the operand field value 
DB - Define byte (8 bits) equal to the operand field value. 
DS - Define block storage for the number of bytes specified 

by the operand field. 
DC - Define consecutive ASCII character bytes for the 

characters (up to 31) specified in the operand field. 
END - End assembly. 
Valid entries in the operand field are: 

1) "#" followed by a hexadecimal string. 

2 ) A positive or negative decimal number (fractional values are 
truncated to integer value — negative values are converted to 
two's complement hexadecimal code). 

3) '""followed by ASCII character (s) and closed by "'" 

4) Register identifiers A, B, C, D, E, H, L, M, SP, or PSW or two 
of these separated by a comma. An error message is given if 
register identifier (s) which are not appropriate for a given 
operation are specified. 

5) A valid symbol. The symbol must be defined elsewhere in the 
program. 

6) "$" (which represents the current value of the address 
counter). 
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-4- 



A single level of arithmetic expression is allowed in the 
operand field on quantities involving symbols and "$". For example 
"BUFFER + 18", "$-10", and "$-BUFFER" would all be permissible operands 
as long as the symbol "BUFFER" is defined elsewhere in the program. 

Errors encountered during assembly are flagged on pass 1 by 
printing the line number of the error, an error mnemonic, and the error- 
containing line. On pass 2, the error mnemonic is printed in the hexa- 
decimal code output field. Error mnemonics and their meaning are: 

*D - Double defined symbol. 

*I - Unrecognizable mnemonic. 

*N - Invalid numeric or character string operand. 

*0 - Operand out of range (too large or small) for 
the instruction being processed. 

*R - Unrecognizable or illegal register identifier in 
the operand field. 

*U - Undefined or illegal symbol. 

OPERATION: 

Before using the assembler for the first time, the following 
preparations should be made. First, if a 4924 tape unit is used, the address 
of this unit must be set to 2. If a 4924 is not used the following 
changes must be made in the assembler: 

Delete lines 105, 155, 160, 445, 545, 550, 565, 570, 

600, 990 through 1165, and 1175 through 1185. 
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Change line 535 to - 

535 IF B = 2 THEN 555. 
Second, place the assembler (modified as indicated above if a 4924 is 
not used) on magnetic tape for future access. 

To use the assembler, first locate the file on magnetic 
tape where it is stored by executing a FIND statement. Then load the 
assembler into memory with an OLD statement. If a 4924 is used, mark 
a tape file large enough to hold the expected hexadecimal code output 
and place the tape containing this file into the 4924. Place the tape 
containing the assembly language program into the 4051. Type RUN and 
enter the file numbers of the program input and, if used, hexadecimal 
output files as requested. 

PROGRAM DOCUMENTATION: 

To conserve memory in the 4051 for symbol table use, few 
remark statements were included to document the assembler. This section 
will describe the different functions of the assembler program. 

First, a table of program variables and constants along with 
their function is given. This table is followed by a description of 
operations performed by each major division of the assembler program. 

PROGRAM VARIABLES & CONSTANTS : 

A$ = Current operand field. 

C$ = Current instruct iont hexadecimal code. 

L$ - Current innut line. 
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M$ " Current mnemonic field. 

0$ = Current output line. 

R$ - Register identification table. 

S$ = Symbol table. 

T$ = Mnemonic identification table. 

U$ = Current symbol field. 

A = Current operand field length. 

E «= Error counter. 

F = Program input file. 

Fl = Hexadecimal output file. 

K c Current symbol index. 

L = Current line number. 

M » Current mnemonic instruction code index. 

N ■= Number of bytes in current instruction. 

P = Current address. 

R «= Current register code. 

S - Symbol address array. 

T « Instruction code array. 

U e Current symbol length. 

V » Current operand value. 

Lines 100 through 175 request input and output files, dimen- 
sion variables, and set up register and mnemonic lookup tables. 

Pass 1 (lines 180 through 420) constructs and prints the 
symbol table. 
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Pass 2 (lines 425 through 985) determines the hexadecimal 
code required to execute each program instruction, prints and numbers 
each line giving current address and hexadecimal codes, and stores the 
code on magnetic tape in systems where a 4924 is used. 

Lines 990 through 1180 print a hexadecimal code table by 
address in systems where a 4924 is used. 

The subroutine beginning at line 1205 inputs a program line 
and separates it into symbol, mnemonic, operand and comment fields. 
It then determines the type of instruction contained in the line along 
with the number of bytes, N, of memory required for the instruction. 
On return from this subroutine, the value of C indicates the type of 
instruction as follows: 

C = 1 error 

C «= 2 8080 instruction, 

M determines the type 

of instruction in order 

of its occurrence within 

data statements which C » 10 Comment 

start at line 2230. 
C « 3 DW 
C - 4 DB 

The subroutine beginning at line 1590 evaluates the operand 
field and returns its value in V. On return, if C - 1 an Undefined symbol 
was encountered. If C = 2, an invalid argument was encountered. A value 
of C - 3 corresponds to a normal return from the subroutine. 
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C - 5 


DC 


C - 6 


DS 


C - 7 


ORG 


C - 8 


EQU 


C - 9 


END 



-8- 



The subroutine beginning at line 1910 converts a hexadecimal 
string, A$, to a decimal number, V. On return, if C - 1 an invalid 
string was encountered. A value of C - 2 corresponds to a normal return, 

The subroutine beginning at line 1995 converts a decimal 
number, G, to a hexadecimal string, N$. On return, B is the number of 
8-bit bytes contained in N$. 

The subroutine beginning at line 2105 returns a value of 
through 7 for R, corresponding to the binary equivalent of the current 
operand's register identifier. On return, C = 1 indicates that an 
invalid or illegal register identifier was encountered. A value of 
C - 2 corresponds to a normal return from the subroutine. 



Research reported in this paper was conducted by the Arnold 
Engineering Development Center, Air Force Systems Command. 
Research results were obtained by personnel of ARO, Inc., 
contract operator of AEDC. Further reproduction is authorized 
to satisfy needs of the U. S. Government. 
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Ret. #025 

INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 □ 8048 CX8080/8085 □ 8086 □ Other 



(use additional sheets if necessary) 



18080 Cross Assembler for INTEL 8080/8085 Microprocessors 



The Cross Assembler is written in HP ALGOL for execution on Hewlett- 
Packard 2100 series computers. The program is designed for the RTh-2 
and RTE-3 operating systems. The Assembler accepts 8080/8085 source 
language statements {very close to INTEL Assembly] and generates a 
listing (including a symbol table) and a hexadecimal file format. 

Computer: Hewlett-Packard 2100 series. 
Memory size: 3zK-words. 
Operating system: RTE-2/RTL-3 



HP-ALGOL For the Hewlett-Packard 2000 computer series 



Source language program stored on a disc file 



1. Listing of source code. 

2. Symbol table. 

3. Listing of generated object code 

4. Possible error messages. 

5. Hexadecimal disc file. 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



Programmer: 



Lara Thrane 



Company: 



Electromagnetics Institute 



Address: Technical University, Bldg 3'8 



City: 



DK-2800 Lyngby 



State: 



Denmark 



© Intel Corporation, 1978 



2/79 
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Ref.# C26 



mSlt^ INTEL * "SERS LIBRARY SUBMITTAL FORM 



□ 4004 D4040 D8008 S8080 D3000 □ Other. 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



MACRO ASSEMBLER FOR DG NOVA 

Assembles standard 8080 Instruction set plus allows a full 
macro facility. Consists of a number of user definitions and 
macros which define the 8080 instruction set which are passed 
to the NOVA macro assembler. 

DG NOVA or ECLIPSE with at least 16K and a disk operating system, 



RDOS or equivalent operating system able to run the NOVA 
macro assembler. 

Source code in NOVA assembly format using 8080 mnemonics 
and register definitions. 



Listing and absolute binary (in a .RB format) with the 8080 code 
assembled in the right side of each NOVA word. Note; due to the 
address structure of the NOVA, code above adr 077777 will not 
be assembled ... and address error will be flagged. 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

DG NOVA MACRO AqqFMFfl PR 



Programmer: 

Tom Rust 



Company: 
Computer Tools 



Address: 

205 W. F.irpkP, 



City: 
Champaign 



State: 
Illinois 6J82Q 



© Intel Corporation, 1976 
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CROSS-ASSEMBLER FOR THE 8080 ON A DG NOVA 

THIS PROGRAM CONSISTS OF A SET OF USER DEFINITIONS (.DUSR) AND 
MACRO DEFINITIONS THAT DEFINE THE 8080 INSTRUCTION SET. A NUMBER 
OF ADDITIONAL PSUEDO-OPERATIONS HAVE ALSO BEEN DEFINED FOR COMMONLY 
USED FUNCTIONS. THESE INCLUDE: 

.WORD -ALLOCATES 2 BYTES OF STORAGE FOR EACH OPERAND 

.BYTE -ALLOCATES 1 BYTE 
FROM 1-64 OPERANDS CAN BE SPECIFIED IN EACH OF THE ABOVE PSUEDO-OPS, 
CAUSING EACH OPERAND TO BE ASSEMBLED INTO SEQUENTIAL MEMORY LOCATIONS. 

.Z -GENERATES THE HI AND LO BYTES FOR JUST ONE OPERAND 

.PAGE -BUMPS UP THE ASSEMBLY COUNTER TO THE NEXT PAGE OF 

MEMORY 
CLA -CLEAR REG A AND CARRY. .GENERATES AN XRA A INSTRUCTION 
NOTE THE NOVA INSTRUCTION SET HAS BEEN .XPNGCED) FROM THE ASSEMBLER.. 
IT IS POSSIBLE TO ASSEMBLE NOVA CODE ALSO IN-LINE, THOUGH THERE ARE 
SOME CONFLICTS BETWEEN INSTRUCTIONS. 

THIS ASSEMBLER HAS ONE STRONG DISADVANTAGE IN THAT IT IS DIFFICULT 
TO ASSEMBLE CODE ABOVE ADDRESS 077777 DUE TO THE FACT THAT THE ADDRESS 
STRUCTURE OF THE NOVA ONLY ALLOWS UP TO 32K WORDS OF MEMORY TO BE 
ACCESSED. HOWEVER, MANY PROGRAMS ARE SMALL ENOUGH TO FIT IN THE 
LOWER HALF OF THE 8080 ADDRESS SPACE, AND THERE ARE WAYS OF BYPASSING 
THIS PROBLEM BY ASSIGNING LABELS RATHER THAN USING THE : SUFFIX. A 
RELOCATABLE LOADER HAS BEEN WRITTEN THAT ALLOWS MODULER CODE TO BE 
GENERATED AND SEPERATELY LINKED TOGETHER. THIS LOADER, WHEN USING 
RELOCATABLE CODE SEGMENTS, CAN PLACE THE SEGMENTS ANYWHERE IN THE 
FULL 64K OF THE 8080 MEMORY SPACE. 

ALL THE CODE IS ASSEMBLED INTO THE RIGHT BYTE OF THE NOVA WORD, AS 
THERE ARE NO BYTE LISTING FORMATS. THIS ALSO WASTES THE LEFT BYTE 
GENERATED IN THE BINARY (.RB), BUT IS UNAVOIDABLE WITHOUT REWRITING 
THE MACRO ASSEMBLER ITSELF. 

THE ASSEMBLER SUPPORTS A WIDE VARIETY OF PSUEDO-OPS AND A VERY 
POWERFUL RECURSIVE MACRO STRUCTURE. CONDITIONAL ASSEMBLY STATEMENTS, 
CONDITIONAL LOOP STATEMENTS, ASSEMBLY BRANCH STATEMENTS, AND A FULL 
SET OF OPERATORS INCLUDING +,-,*, /, !, (OR), & (AND), BINARY SHIFT, 
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PARENS. FULL CONDITIONAL OPERATORS— 
> GREATER THAN 
< LESS THAN 

> = GREATER THAN OR EQUAL TO 
< = LESS THAN OR EQUAL TO 

EQUAL TO 
<> NOT EQUAL TO 
SPECIAL RADIX PSUEDO OPS ALLOW ANY RADIX FROM 2-20 TO BE USED AS 
DEFAULT ON INPUT (AS WELL AS LOCALLY REDEFINED), AND ANY RADIX 
FROM 8-20 (ALLOWING HEX LISTINGS AS WELL AS OCTAL) ON OUTPUT. 

TO USE THE ASSEMBLER, THE DEFINITIONS ARE READ INTO A FILE WHICH 
WILL THEN NEED ONLY BE READ ON THE FIRST PASS OF THE ASSEMBLY. AS 
AN EXAMPLE, ASSUME THE DEFINITIONS ARE IN FILE 80DEF. THE SOURCE TO 
BE ASSEMBLED IS IN FILE TEST AND THE OUTPUT IS TO GO TO FILE TEST.LS. 
THE COMMAND LINE INTERPRETER INPUT TO BE TYPED WOULD BE: 

.MAC 80DEF/S TEST TEST.LS/L 
THE /S INDICATES THE DEFINITIONS NEED ONLY BE READ IN ON THE FIRST 
PASS. USING THE /S SPEEDS THE ASSEMBLY CONSIDERABLY AND REMOVES THE 
DEFINITIONS FROM THE ASSEMBLY LISTING. 
^•^-x-^-jfQ/^yy | ON ! ***** 
THE FOLLOWING SYMBOLS SHOULD NOT BE REDEFINED BY THE USER SOURCE: 

I USED IN ALMOST EVERY INSTRUCTION 

L USED IN .WORD 
PLUS OF COURSE THE MNEUMONICS THEMSELVES AND THE REGISTER NAMES. 
HOWEVER, IF ANY OF THE REGISTERS ARE REDEFINED AN ERROR MESSAGE WILL 
FLAG THE BAD CODE. THE ABOVE 2, IF CHANGED IN THE CODE STREAM, 
MAY CAUSE UNPREDICTABLE RESULTS. 

ALSO INCLUDED IS A TEST LIST OF ALL THE MNEUMONICS FOR INITIAL 
PROGRAM CHECKOUT. 

ANY INQUIRIES SHOULD BE DIRECTED TO: 

TOM RUST 
COMPUTER TOOLS 
205 W. EUREKA 
CHAMPAIGN, IL 61820 
217-359-5534 
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Ref.#C27 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 08008 X2&080 D3000 D Other. 



(use additional sheets if necessary) 



SYMBOL CROSS-REFERENCE 

Produce a cross-reference listing of tag names vs referenced 
locations for 8080 assembly language programs on a PDP-11. 
Uses the symbol table output of the Intel paper tape assembler. 



PDP-11 with a disk 

CRT 

Paper Tape Reader 

Line Printer 



No addltfonal software required 



1. The symbol table - hex location as output on paper tape 
by the mds paper tape assembler. 



2. The user program source tapes. 



1. The cross-reference listing on the line printer 

2. Coding errors listed on the CRT 



Registers Modified: 

N/A 


Programmer: 

Eugene Bidwfil 1 


RAM Required: 

N/A 


Company: 

Supreme Eqpt. & Systems 


ROM Required: 

N/A 


Address: 

170 53rd Street 


Maximum Subroutine Nesting Level: 

None 


City: 

Brooklyn 


Assembler/Compiler Used: 

PDP-11 Assembler 


State: 

New York 1123? 



8/8/77 



© Intel Corporation. 1976 
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1 . Disk Data Base Format 

The program is assembled to save the SYMBOL, its location 

and cross-references on the disk starting at disk address 3000 

oct 3 1 . 



Each symbol is allocated 60 words on the disk in the following 

sequence: 

Byte 0-4 The symbol name in ASCII 

5 The number of references plus one 

6-9 The symbol address in ASCI I 

JO - 11 1st reference location in binary 

12 - 13 2nd reference location in binary 

126,127,58th " " » » 



As can be seen, there is a maximum of 58 references per symbol 
which wi I I be I isted. 
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2. Core memory data base format - for the SYMBOL vs. disk location 
of its data. 

A map of the disk data is maintained in core at the address 
labeled (SYM). 

A disk sector has 256 words. Each symbol is given bU words, 
as mentioned on the prevFous page. Thus the data for 256/60 = 
4 symbols is kept on one sector. These 4 records are distinguished 
by an index CO - 3) in the disk memory map. 

The disk memory map has 8 bytes per symbol as follows: 
Byte 0-4 The symbol name in ASCtf 

" 5 The sector tndex (0 - 3) 

" 6-7 The disk address 

The dtsk memory map is in sort on symbol name. 
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BASIC OPERATION 



C START ) 



mount the output paper 
tape of the 8080 assembler 



execute the program from 
location 1000 



L 



program reads the symb 
table to $ 



Z 



write the symbol table 
on disk 






Message on CRT 
Mount source tape 
Press continue 




I 



operator mounTs the 
f i rst source tape. 



operator presses 
Cont on PDP-11 



operator mounts next 
source tapes. "Momentary 
press of tape - feed may 
be required" 



Z symbol reference / 
locations written/ 
to disk / 



/ 



I 

the END instruction 
is read on the last 
source tape 



7 



the X-REF. 
listing it 
printed from 
the disk store. 





STOP 
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Ref . #C28 



UlSltg" INTEL * "SER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D40C4 D4040 D8008 B8080 D3000 □ Other. 



(use additional sheets if necessary) 



Align Program - Intermediate Pass between PIM Pass 1 and 2. 



Generate consistent storage assignment for global variables in 
separately compiled program segments. 



Computer that supports the PIM Cross Compiler and FORTRAN IV 



PIM Cross Compiler, FORTRAN Compiler 



Origin (within RAM bank specified by $V in Pass 2) via FORTRAN Unit 9 
(decimal, free format) 

PIM intermediate File 21 as generated by Pass 1, via FORTRAN Unit 23. 



Message Output via FORTRAN Unit 10 (Conversational Terminal Output 

PIM Intermediate File 21 as reprocessed, via FORTRAN Unit 21. 

NOTE: The function ICON included here is an Arithmetic Statement 

Function specific to IBM System/360/370. It is functionally 
equivalent to the Function ICON furnished with the PIM Cross 
Compiler. 



Program available in 
source listing only. 



Registers Modified: 



NA 



RAM Required: 



NA 



ROM Required: 



NA 



Maximum Subroutine Nesting Level: 



NA 



Assembler/Compiler Used: 

IBM 370 Fortran IV 



Programmer: 

R. L. Mahn & 0. C. Juelich 



Company: Missile Systems Division 
Rockwell International Corp. 



Address: 

4300 E. Fifth Avenue 



City: 
Co lumbus 



State: 
Ohio 



43216 



© Intel Corporation, 1976 

8/78 
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The ALIGN program is an intermediate pass between passes One and Two 
of the PLM Cross Compiler. It allows separate compilation of program 
segments arising from compiler table limitations, from memory overlay 
design, or for any other reason. 

The variables global to the segments must be declared at the start of 
the main program block before declarations of procedures. Address 
variables should be declared ahead of Byte variables. 

Since the PLM Cross Compiler allocates compiler temporaries in the space 
preceding the global variables in the RAM bank specified by $V in Pass 
Two, an origin or offset for the global variables must be specified by 
the user. The ALIGN program adds a dummy declaration to the intermediate 
file 21 to bring the beginning of the global variables down to the specified 
origin or offset, which should normally be an even number. The ALIGN 
program may be left in place between Passes One and Two of the PLM Cross 
Compiler even when its services are not needed. An offset specification 
of -2 will direct that no dummy declaration be added to the intermediate 
file 21. 

When the ALIGN program is in place, completion of Pass One is followed 
by the message: 

ALIGN PROGRAM - ENTER OFFSET 

The user responds by typing the desired offset as a decimal number, e.g., 
128, -2. The ALIGN program is a normal FORTRAN program, executed between 
Passes One and Two of the PLM Cross Compiler. The File 21 output of Pass 
One is read from unit 23. The change in unit numbers can be effected via 
job control in many host systems. Alternatively, the reference to unit 
21 in Pass One subroutine WRITEL could be changed to refer to unit 23. 
No change is needed in Pass Two. 
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Ref. #C29 



INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 □ 8048 d^8080/8085 □ 8086 □ Other 



(use additional sheets If necessary) 



8085 Cross Assembler for the DEC PDP8 and PDPII 

Utilizing the file access features of the PDPII under 
RTII or the PDP8 under 0S8, assembly of programs in 
standrad Intel format for the 8080 or the 8085 is 
performed. The few differences between MAC80 is 
performed. The few differences between MAC80 and this 
assembler are outlined in the program comments. 

DEC PDP8 capable of running 0S8 and Fortran II 

or DEC PDPII capable of running RTII and Fortran IV 

(16K words of memory in either machine is enough memory for 

300 symbols in the symbol table) 

0S8 or RTII and at least Fortran II 

(although specifically designed for these machines/operating 

systems, conversion to other machines would be straight forward) 

Source file 



Listing of assembled program with errors also printed on 
the console device. And a symbol table. 

Intel compatible HEX object file 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



DEC Fortran II(pdp8) 
Fortran Il(pdp11 



Programmer: 



Rex Tracy 



Company: Colorado State University 



Address: El ec . E ngr# rj ept# . CSU 



City: 



Ft. Collins 



State: 



Colorado, 80523 



© Intel Corporation, 1978 

2/79 
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Ref .#C30A 



Jnsite INTEL ° "SER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 H8080 D8048 D8085 □ Other 



(use additional sheets if necessary) 



8008 Cross Assembler for 8085 - MACRO Definition Set — 
M8008.SRC 

Permits assembly of programs written in 8008 assembly 
language with an 8080 Macro Assembler. 



ISIS II System 



8080/8085 Macro Assembler 



A source program written in 8008 assembly language with 
only slight modifications which are specifically detailed 
in the source listing of M8008.SRC. 



An assembly of the source program to be used as is to 
create an absolute paper tape or the list as input to 
the 8080 program LPSTPR which follows to output a more 
readable object listing on a lineprinter. 



C30A is offered as 
one program with C30B. 





Registers Modified: 


Programmer: 

H. Webster 


RAM Required: 


Company: 

Bedford Computer Systems 


ROM Required: 


Address: 

3 Preston Court 


Maximum Subroutine Nesting Level: 


City: 

Bedford 


Assembler/Compiler Used: 

ISIS-II 8080/8085 Macro Ass.,V2.C 


State: 
Massachusetts 01730 


© Intel Corporation, 1976 

8/78 


98-034D 
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insite 



Ref .#C30B 



INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Requited 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 SI 8080 D3000 □ Other. 



(use additional sheets if necessary) 



LPSTPR Location Included Post Assembly Processor 

This program reads the list file resulting from assembling 
a source file written in Pseudo 8008 assembly language and 
outputs a very readable object listing to the linepr inter 



ISIS II System 



8080/8085 Macro Assembler 



List file of an assembled source file written in 8008 assembly 
language and including at start M8008.SRC, the macro definition 
set. 



Very readable object listing on the linepr inter 



C30B is offered as 
one program with C30A. 



Registers Modified: 


Programmer: 


H. Webster 


RAM Required: 

0389H Bytes 


Company: 


Eedford Computer Systems 


ROM Required: 

0C24H Bytes 


Address: 


3 Preston Court 


Maximum Subroutine Nesting Level: 


City: 


Bedford 


Assembler/Compiler Used: 

ISIS--II 8080/8085 MACRO ASSEMBLER, V2.0 


State: 


Massachusetts 01730 



© Intel Corporation, 1976 

8/78 



98 034 C 
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Ref. #C31 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 i$8080 D8048 &8085 □ Other. 



(use additional sheets if necessary) 



CROSS ASSEMBLER USING HONEYWELL H316/516/716 (Rev.B) 

To generate full program listing and object tape from a source 
tape written in Intel 8080/8085 Assembly Language. 



Honeywell Mini H316/516/716 4K minimum. 
Paper Tape Reader, Punch and Teletype. 
Line Printer is optional. 



Honeywell DAP-16 Assembler 



Revised 12/78 



Source Tape written in Intel 8080/8085 Assembly Language using 
ASCII code forced 8 parity (Honeywell Standard) or Even parity 



Full assembly listing with HEX or Octal machine code optional 
Binary output tape if required. 



Registers Modified: 

N/A 


Programmer: 

Robert G. Yarwood 


RAM Required: 
N/A 


Company: 

John Player & Sons 


ROM Required: 
N/A 


Address: 

Radford Boulevard 


Maximum Subroutine Nesting Level: 

N/A 


City: 

Nottingham 


Assembler/Compiler Used: 

Honeywell DAP-16 Assembler 


State: 

ENGLAND 



© Intel Corporation, 1976 

12/78 



98-034D 

6-69 



Ref. #C32 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



□ 4004/4040 D8008 098080 D8048 D8085 D Other. 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 



Output 
Results 



_ (use additional sheets if necessary) 



MCS-48 Interpretive Cross Assembler. 

MCS-48 Interpretive Cross Assembler that runs on an Intellec 8/to0D80. 



Parameters Assembly language program. 



Intellec 8/fo0D80. 
Teletype. 



Intellec system monitor Vers. 3.0 



Starting address of the program to be assembled. 



Assembled program in RAM at address specified. 

Complete listing of address, machine code, and assembly language 

mnemonic for each instruction. 



Registers Modified: 



ALL 



RAM Required: 11 Bytes + Stack 



ROM Required: 2*t12 Bytes 



Maximum Subroutine Nesting Level: 3 



^^tye^Compjier Used: 
MDS 8080/8085 ASSEMBLER V2.0 



Programmer: 



M.A. P0RDES 



Company: GEC Hirst Research Centre 



Address: East Lane, Wembley, Middx. 



City: 



London 



State: 



ENGLAND 



© Intel Corporation, 1976 

8/78 
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Ref. #C32 
MCS-48 INTERPRETIVE CROSS ASSEMBLER 



The assembler is designed to run on an Intellec 8/MOD 80 and will assemble 
all of the standard MCS-48 instructions as defined in the MCS-48 Assembly 
Language Manual with the following exceptions: 

1) No labels are allowed 

2) The only pseudo-instructions allowed are ORG, END, DS, DB, and DW 

3) No operators are allowed 

4) The assembler will not accept decimal, binary or octal numbers 

All numbers input to the assembler are assumed to be in hexadecimal, 
typing an H after any hexadecimal number is optional. Also, it is not 
necessary to type a before a number that starts with A - F. 

Operating Instructions 

On starting the program the assembler will print the pseudo-instruction 
ORG, at which point the user must type in the address of the area in RAM into 
which the assembled program will be placed. The user can then proceed to 
enter his program. 

When entering an instruciton the code part of the instruction must be 
separated from the operand (if any), by a single space. 

If an illegal instruction is entered it is either thrown out immediately 
or when the appropriate delimiter is typed in, allowing the user to re-enter 
his instruction. 

The data part of all appropriate instructions can be any ASCII character, 
as well as being a HEX number, providing the character is enclosed within 
single quotes (' ). 

DB instructions can consist of a sequence of HEX numbers, a string of 
ASCII characters (providing the string is enclosed within single quotes), or 
a combination of the two types. The maximum length of "list" is ten HEX 
numbers or ASCII characters. 

Comments can be added to any instruction by typing a semicolon (;) 
immediately after entering the instruction. The comment can be of any 
length and is terminated by typing carriage return (CR). 

The pseudo-instruction ORG, followed by an address, can be entered at 
any time during the assembly allowing the user to assemble different parts 
of his program at different addresses. 

When all the instructions in the program have been entered, the pseudo- 
instruction END is typed to terminate the assembly. 

Examples of all the above points are given in the test program. 
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Ref.#C33 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



D 4004/4040 D8008 OS 8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



SIM48 VERSION 1.3-8048 SIMULATOR 

Simulates an 8048/49 microprocessor with 8243 1/0 expander. 



8080 Intel! ec Microcomputer Development System 
32K bytes of RAM memory 
Flexible diskette drive and controller 
Console device 

ISIS- I I Operating System 
ISIS-II 8048 Assembler 



Hexadecimal coded file containing the 8048 machine instructions, 



Interactive simulation 



Available on diskette only 



Registers Modified: 

All 



RAM Required: 

0A27H 



ROM Required: 

219BH 



Maximum Subroutine Nesting Level: 

3 



Assembler/Compiler Used: 

8080 Assembler PL/M-80 Compiler 



Programmer 



Kjrammer: 

t. L. Jones 



Company: 

Wits. University 



Address: 

1 Jan Smuts Ave. 



City: 

Johannesburg 



State: 

South Africa 



© Intel Corporation, 1976 
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6-74 



98-034D 



_ _ C34 

■nSlt^ " INTEL * USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D 8048 El 8080/8085 D 8086 D Other. 



(um additional ahaata If nacaaaary) 



8085 CROSS ASSEMBLER FOR NOVA 1200 

Utilizing file access features of the NOVA 1200 under RDOS 5, 
assembly of programs in standard INTEL format for the 8080 or 
8085 is performed. The few differences between MAC80 and this 
assembler are outlined in the program comments 



NOVA 1200, 4047 single or dual disk drives and 16K words of memory 



RDOS 5 and FORTRAN IV 



Source file name 



(SOURCE FILE).LS Assembly listing and symbol table 
(SOURCE FILE).RB 8085 object code 
Error listing on console 



NOTE: THIS IS A MODIFICATION TO PROGRAM C29 WRITTEN BY 
REX TRACY 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



a m ,n . 093-000053-8 

ASSembler/Comp " erUsed REV.05.10NOVA FORTRAN 



Programmer: 



William P. Weber 



Company: 

Vapp Communications Engin e ers, Inc 



Address: 



801 Follin Lane 



City: 



Vienna 



State: Virginia 22180 



IV 



© Intel Corporation, 1978 
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■ ■■ T.W 

insite 



Ref.#C35 

INTEL" USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 □ 8048 M 8080/8085 □ 8088 □ Other 



(um additional ahaata If nacaaaary) 



RTCOPY 

Copies first file from a PDP-11 diskette (RT-11) to an MDS 
ISIS-II diskette file. 



MDS 800 System running ISIS-II 



ISIS-II 



A valid ISIS file name. The PDP-11 RT-11 diskette is placed in drive 
1 and the ISIS-II diskette is placed in drive 0. Key 'RTCOPY' 
followed by the file name desired. 



The first 



file on the 
Since only 



RT-11 diskette 
the first file 



will be copied to the ISIS 
is copied, the user should 



diskette. 

initialize his RT-11 diskette prior to placing the file to be copied 

onto it. 



Registers Modified: 

N/A 


Programmer: 


Steve Freeman 


RAM Required: . ., , .. 

Less than IK 


Company: 


Amer-O-Matic Corp. 


ROM Required: None 


Address: 


804-4th Avenue N. 


Maximum Subroutine Nesting Level: N/A 


City: 


Birmingham 


8080/8085 Macro 

Assembler/Compiler Used: Assembler V2.0 


State: 


Al abama 



8/79 

© Intel Corporation, 1978 



6-78 



SECTION 7 



UNCLASSIFIED PROGRAMS 



REFERENCE PROGRAM PAGE 

NUMBER 

Dl QUICKSORT PROCEDURES 7-1 

D2 BINARV SEARCH ROUTINE 7-5 

D3 DECREMENT H AND L REGISTERS 7-9 

D4 MORSE CODE GENERATOR 7-12 

D5 CONTROL DATA OUTPUT 7-14 

D12 CLOCK SUBROUTINE 7-18 

DO INTERRUPT DRIVEN CLOCK ROUTINE 7-22 

D14 CALENDAR SUBROUTINE 7-27 

D15 PASS - PARAMETER PASSING ROUTINE 7-31 

D17 DATA ARRAV MOVE 7-35 

D18 SHELLSORTING ROUTINE 7-39 

D19 TEXT STORAGE PROGRAM 7-42 

D26 TIME SHARING COMMUNICATIONS 7-47 

D21 A GENERALIZED STEPPER MOTOR DRIVE PROGRAM 7-53 

D22 IBM SELECTRIC OUTPUT PROGRAM 7-55 

D23 BINARV SEARCH 7-68 

D24 TIM IT - INTERRUPT DRIVEN REAL-TIME CLOCK ROUTINE .... 7-65 

D25 ABSORB ANCE CALCULATION 7-71 

D26 TELEPROCESSING BUFFER ROUTINE 7-73 

D28 RUN 8 7-78 

D36 PAPER TAPE LEADER I. D 7-81 

D31 LSORT 7-85 

D33 OCTHEX 7-91 

D34 SDK-88 PAPER TAPE PUNCH ROUTINE 7-93 

D35 TVPE K. T. C. LINEARIZER 7-97 

D36 ENABLE HOLD - SCREEN MODE 7-181 

D37 DISABLE HOLD - SCREEN MODE 7-184 

D38 THERMOCOUPLE LINEARIZATION <TVPE J) 7-188 

D39 INVERT DATA IN RAM 7-118 

D48 RELATIVE JUMP ROUTINE 7-114 

D41 JULIAN DATE ROUTINE 7-118 

D42 TERM I NET 1288 7-122 

D43 TERMINET 388 7-124 

D44 SETS HORIZONTAL TABS ON TERMINET 7-138 

D45 GRAPH 7-134 

D46 ANALOG-DIGITAL POLLING ROUTINE 7-146 

D47 THUMBWHEEL SBC 88/18 TEST PROGRAM 7-144 

D48 CALCULATE A CALENDAR FOR ANV VEAR 7-152 

D49 STRING MANIPULATION PACKAGE 7-154 

D56 OUTPUT MESSAGE GENERATOR 7-156 
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D51 SBC 80P REAL TIME CLOCK 7-158 

D52 RERL TIME CLOCK SERVICE ROUTINE 7-168 

D53 FIELD 7-162 

D55 SERIAL PROM PROGRAMMER 7-172 

D56 MAILING LABEL PROGRAM - PL/M-80 7-178 

D57 CHECK BOOK BALANCING PROGRAM - FORTRAN-80 7-184 

D58 FIFO - FIRST- IN, FIRST-OUT BUFFER ROUTINE 7-186 

D59 COS - A CASSETTE OPERATING SVSTEM FOR THE MDS-880 . 7-191 

D66 INTELLEC MDS MAILING LIST - FORTRAN-8© 7-193 

D61 PLOTA 7-195 

D62 SORT - GENERAL SORTING PROCEDURE 7-197 

D62 MAILING LIST MERGE 7-199 

D64 FILES - PL/M UTILITY PROCEDURES 7-281 



8. •'79 



MICROCOMPUTER USER'S 
int^L LIBRARY SUBMITTAL FORM m. no. 



Dl 



D4004 (2)8008 (28080 Q 4040 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



QUICKSORT PROGRAM 

SORT AN ARRAY INTO ASCENDING ORDER 



8008/8080 SYSTEM 



PL/M COMPILER 



1. ADDRESS OF ARRAY (16 BITS) 

2. LENGTH OF ARRAY (8 BITS) 



THE ELEMENTS OF THE ARRAY PASSED ARE SORTED INTO ASCENDING ORDER 



Registers Modified: 



ALL 



RAM Required: 



546 &YTES 



ROM Required: 



368 BYTES 



Maximum Subroutine Nesting Level: 
2 



Assembler/Compiler Used: 

PLM80 or PLM 



Programmer: 

KEN BURGETT 

Company: 



7-1 



00001 




00002 




00003 




00004 




00005 




or t> 




00v07 




00008 




00009 




00010 




00011 




00012 




00013 




00014 




00015 




00016 




00017 




00018 




00019 




00020 




00021 




00022 




00023 




00024 




00025 




00026 




00027 


2 


00028 


2 


00029 


2 


00030 


2 


00 n 31 


2 


01 ,2 


2 


00033 


2 


00034 


2 


00035 


2 


00036 


2 


00037 


2 


00038 


2 


00039 


3 


00040 


3 


00041 


3 


00042 


3 


00043 


3 


00044 


3 


00045 


2 


00046 


2 


00047 


2 


00048 


2 


00049 


2 


00050 


2 


00051 


2 


00052 


3 


00053 


3 


00054 


3 


00055 


4 


00056 


4 


0' '1 


4 


OvvoB 


5 


00059 


6 


00060 


5 



/* REF. NO. Dl */ 

/* PROGRAM TITLE QUICKSORT */ 

/* QUICKSORT PROCEDURE. 

THIS PL/M PROCEDURE SORTS AN ARRAY INTO ASCENDING ORDER 
USING THE QUICKSORT ALGORITHM. INCLUDED IN THIS LISTING 
IS THE PROCEDURE, QUICKSORT, AND A TEST DRIVER PROGRAM 
TO DEMONSTRATE THE CALLING SEQUENCE. NOTE THAT THE 
PROCEDURE IS WRITTEN WITH AN ASSUMPTION THAT THE NUMBER 
OF ELEMENTS TO BE SORTED IS LESS THAN OR EQUAL TO 256 
(LOW, HIGH, UPTR, DPTR, LSTACK, HSTACK, ARRAYSSIZE, Al, 
AND A2 ARE BYTE VARIABLES) AND THAT THE PRECISION OF 
THE ARRAY ELEMENTS IS 8 BITS (LIST, TEMP, AND REF ARE 
BYTE VARIABLES). THESE RESTRICTIONS MAY BE LIFTED BY 
CHANGING THE DECLARATIONS. NOTE ALSO THAT THE 
WORKING ARRAYS (LSTACK AND HSTACK) ARE DIMENSIONED 
BY STACKSSIZE WHERE 



STACKSSIZE >= ARPAY$SIZE. 



*/ 



QUICKSORT: 

PROCEDURE (ARRAY, ARRAYSSIZE); 

DECLARE STACKSSIZE LITERALLY '256'; 

DECLARE TRUE LITERALLY 'OFFH', FALSE LITERALLY '0'; 

DECLARE ARRAY ADDRESS; 

DECLARE ARRAYSSIZE BYTE; 

DECLARE LIST BASED ARRAY BYTE; 

DECLARE LSTACK(STACKSSIZE) BYTE, HSTACK (STACKSSIZE) BYTE; 

DECLARE TOP BYTE; 

DECLARE (LOW, DPTR,UPTR, HIGH) BYTE; 

DECLARE (REF, TEMP, DECREMENTING) BYTE; 

PUSH: 

PROCEDURE (A1,A2); 

DECLARE (A1,A2) BYTE; 

LSTACK(TOP) = Al; 

HSTACK (TOP) = A2; 

TOP = TOP + l; 
END PUSH; 

/* MAIN PROGRAM V 

TOP = 0; 

CALL PUSH(0, ARRAYSSIZE); 
DO WHILE TOP <> 0; 
TOP = TOP - 1; 

if (dptr: = (low:=lstack(top)))<xuptr: = (high:=hstack(top))) then 
do; 

ref = li st (low); 

DECREMENTING = TRUE; 
DO WHILE DECREMENTING; 

DO WHILE LIST(DPTR) <= REF AND HIGH > DPTR; 

dptr = dptr + 1; 
end; 

DO WHILE LIST(UPTR) >= REF AND LOW < UPTR; 
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00061 5 UPTR = UPTR - l; 

00062 6 end; 

00063 b IF DPTR < UPTR THEN 

00064 5 do; 

00065 5 TEMP = LIST(UPTR); 

Of -,6 6 LIST(UPTR) = LIST(DPTR); 

00v67 6 LIST(DPTR) = TEMP; 

00068 6 DPTR = DPTR + 1; 

00069 6 UPTR = UPTR - l; 

00070 6 end; 

00071 5 ELSE 

00072 5 do; 

00073 5 IF UPTR > LOW THEN 

00074 6 do; 

0007b 6 LIST(LOW) = LIST(UPTR); 

00076 7 LISTCUPTR) = REF; 

00077 7 UPTR = UPTR - 1; 

00078 7 end; 

00079 6 CALL PUSHCLOV. ,UPTR) ; 

00080 6 CALL PUSH(DPTR,HIGH) ; 

00081 6 DECREMENTING = FALSE; 

00082 6 end; 

00083 5 end; 

00084 4 end; 

00085 3 end; 

00086 2 END QUICKSORT; 

00087 1 

00088 1 /* BEGIN TEST DRIVER */ 

00090 1 DECLARE TEST$ARRAY (16) BYTE INITIAL 

00*91 1 (0,15, 1,14, 2, 13, 3,12,4,11, 5,10,6,9,7,8), 

00093 1 CALL yuIlKSunuiitoiSAKKAi^nu^iu^^.w.r....,/? 

00094 1 

00095 1 EOF 

NO PROGRAM ERRORS 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



02 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
rare meters 



Output 
Results 



Q4004 Q8008 Q8080 



BINARY SEARCH ROUTINE 

Uses a binary search method to find a character in a table 
of characters. 



None 



Revised 6/78 



None 



E register = character searching for 
D register = length of table (1 to 255 characters) 
H, L registers = address of first character in the table 
Note: The table must be arranged in ascending order. 



If the character is found, 
A register = 1 
B register = index of character in the table (0 to 2 54) 

If the character is not found, 
A register = 



Registers Modified: 



A, B. C. D. H T L 



RAM Required: 

None 



ROM Required: 

* 5 io 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

MAC 8 _ 



Company: 
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8680 MACRO ASSEMBLER, VI. 



PAGE 1 



i REF. NO. D2 

.; PROGRAM NAME BINARV SEARCH ROUTINE 



;THIS SUBROUTINE PERFORMS A BINARV SEARCH OF A TABLE 
;THE E REGISTER CONTAINS THE CHARACTER BEING SOUGHT, THE D 
; REGISTER CONTAINS THE LENGTH OF THE TABLE <1 TO 255 CHARS) 
;AND THE H AND L REGISTERS POINT TO THE FIRST CHARACTER 
;OF THE TABLE 

■> IF THE CHARACTER IS FOUND, THE A REGISTER CONTAINS A 1 AND 
;THE B REGISTER CONTAINS THE INDEX OF THAT CHARACTER IN THE 
.: TABLE <6 TO 254 X 
.: IF THE CHARACTER IS NOT FOUND, THE REGISTER CONTAINS A 0. 



.;SET LOWER INDEX LIMIT TO 

;ADD LOWER AND UPPER LIMITS OF INDEX 

i AND DIVIDE BV 2 

;TO GET THE MIDDLE OF THE RANGE 

.;SAVE INDEX OF MIDDLE IN B 

; ADD ADDRESS OF START OF TABLE 

.; NO CARRV TO SKIP H 



.; RESTORE THE L REGISTER 
: ADDRESS OF THE MIDDLE OF THE TABLE 
.; LOAD THE CHARACTERS FROM THE TABLE 
.; TWO CHARACTERS THE SAME? 
.; NO, SOUGHT CHARACTER IS GREATER 
.; VES, MATCH HAS BEEN FOUND 
.; NO, SOUGHT CHARACTER IS LESS 





SRCG : 






0000 0E00 


LOOP : 


MVI 


C, 


t.-_<02 7 A 




MOV 


A, D 


0003 81 




ADD 


c 


0004 IF 




RAR 




0005 47 




MOV 


B, A 


0006 85 




ADD 


L 


0007 D20B00 




JNC 


NCAR1 


000A 24 


NCAR1 : 


INR 


H 


000B 6F 




MOV 


i_, A 




;H AND 


L NOW 


CONTAIN 


000C 7E 




MOV 


A, M 


000D BB 




CMP 


E 


000E DA18O0 




JC 


LOW 


0011 CA2AO0 




JZ 


MATCH 


0014 50 




MOV 


D, B " 


0015 C31900 


LOW : 


JMP 


CHECK 


©018 48 


CHECK : 


MOV 


C, B 


0019 7D 




MOV 


A, L 


001A 90 




SUB 


B 


001B D21F00 




JNC 


NCAR2 


001E 25 


NCAR2 : 


DCR 


H 


/^1F 6F 




MOV 


L, A 


\. ,20 7A 




MOV 


A, D 


0021 91 




SUB 


C 


0022 FE01 




CPI 


1 



; CURRENT INDEX BECOMES LOWER INDEX 

.; RESET H AND L TO START 

; OF TABLE 

;NO CARRV TTO SKIP H 



; RESET L 

i CHECK IF LIMITS DIFFER BV 1 
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RbMSO D2 



I SIS- 1 1 8880/8085 MACRO ASSEMBLER, V2. 



MODULE PAGE 



LOC OBJ 



SEQ 



SOURCE STATEMENT 



8000 0E00 

8882 7 A 
8882 81 

8884 IF 

8885 47 

8886 85 
8807 D20B00 
000A 24 

000B 6F 

000C 7E 
00OD BB 
O00E DA1800 
0011 CA2A00 

0814 50 

0815 C31900 

8818 48 

8819 7D 
881A 90 
001B D21F00 
0O1E 25 

001F 6F 

0020 7A 

0021 91 

0022 FE01 
0024 C20200 



10 

11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



24 



ii!t« 



REF. NO. D2 

PROGRAM NAME BINARY SEARCH ROUTINE 



THIS SUBROUTINE PERFORMS A BINARY SEARCH OF A TABLE. 

THE E REGISTER CONTAINS THE CHARACTER BEING SOUGHT, THE 

REGISTER CONTAINS THE LENGTH OF THE TABLE <1 TO 255 CHA 

AND THE H AND L REGISTERS POINT TO THE FIRST CHARACTER 

OF THE TABLE 

IF THE CHARACTER IS FOUND, THE A REGISTER CONTAINS A 1 

THE B REGISTER CONTAINS THE INDEX OF THAT CHARACTER IN 

TABLE <@ to 254 >. 

IF THE CHARACTER IS NOT FOUND, THE REGISTER CONTAINS A 



SRCG 
LOOP 



NCAR1 



MV I 

MOV 
ADD 
RAR 
MOV 
ADD 
JNC 
INR 

MOV 



u, y 



A, 
C 


D 


B, 


A 


L 




NC 


:AR1 


H 





L, A 



SET LONER INDEX LIMIT TO O 

ADD LOWER AND UPPER LIMITS OF I 

AND DIVIDE BY 2 

TO GET THE MIDDLE OF THE RANGE 

SAVE INDEX OF MIDDLE IN B 

ADD ADDRESS OF START OF TABLE 

NO CARRY TO SKIP H 



RESTORE THE L REGISTER 



.: H AND L NOW CONTAIN THE ADDRESS OF THE MIDDLE OF THE TA 



ss 




MOV 


34 




CMP 


35 




JC 


36 




JZ 


3-7 




MOV 


.5-ti 




JMP 


39 


LOWER : 




40 




MOV 


41 


CHECK : 




42 




MOV 


43 




SUB 


44 




•JNC 


45 




DCR 


46 


NCAR2 : 




47 




MOV 


48 




MOV 


49 




SUB 


50 




CP I 


51 




JNZ 


52 


INVAL: 





A, M 

E 

LOWER 

MATCH 

D, B 

CHECK 

C, B 



LOAD THE CHARACTERS FROM THE TA 

TWO CHARACTERS THE SAME? 

NO, SOUGHT CHARACTER IS GREATER 

YES, MATCH HAS BEEN FOUND 

NO, SOUGHT CHARACTER IS LESS 



CURRENT INDEX BECOMES LOWER IND 



A, 


L 


t' 

NC 

H 


;AR2 


L, 

A, 
I - - 


A 

D 


1 
LOOP 



RESET H AND L TO START 

OF TABLE 

NO CARRY TTO SKIP H 



; RESET L 

; CHECK IF LIMITS DIFFER BY 1 



.; DIFFERENCE MORE THAN 1 SO REPEA 

7-7 



Mh vO ASSEMBLER, VI O 



PAGE 



OR24 f:2*200 - T NI LOOP ; DIFFERENCE MORE THAN 1 SO REPEAT SEARCH 

INVHL r1VI R.i ..RETURN WITH AS UNSUCCESSFUL SEARCH 



0027 SE01 

002 9 C9 P-ET 
MATCH : 

OO 2 A 3'E01 r ' 1VI 

-,n-T :-- P'FT 

hOOO END 



A, 1 .RETURN WITH 1 Fib A bUCCEbb 



7-1 



IS IS- 1 1 8089/8085 MACRO ASSEMBLER, V2. 8 MODULE PAGE 2 

LOG OBJ SEQ SOURCE STATEMENT 

8827 3E00 52 MVI A, 8 ; RETURN WITH @ AS UNSUCCESSFUL S 

0029 C9 54 RET 

55 MATCH: 

002A 2E01 56 MVI A, 1 ; RETURN WITH 1 Ab A bUCCESb 

802C C688 57 AD I i AND ZERO-FLAG Z = O 

0Pi2E C9 58 RET 

59 END 

PUBLIC SYMBOLS 

EXTERNAL SYMBOLS 

I icpp '-IVMBriL 1 - 

CHECK~ A 8019 INVAL A 0027 LOOP A 0002 LOWER A O018 MATCH A 002 

SRCG A 8000 

ASSEMBLY COMPLETE, NO ERRORS 
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iny 



MICROCOMPUTER 
LIBRARY SUBMITTAL FORM 



Ref. No. D3 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 8008 Q 8080 



(um additional sheets if necessary) 



DECHL 

Macro for decrementing the 16-bit binary contents of the 
H and L registers. 



None 



None. 



H and L registers 



(HL-1) -► HL 



Registers Modified: 

H,L 


Maximum Subroutine Nesting Level: 




RAM Required: 

None 


Assembler/Compiler Used: 

MAC 8 


ROM Required: 

7 bytes 


Programmer: , . ,. _ . , 

John M. Schulein 

Aeronutronic Ford 




Company: 3939 Fabian Way 

Palo Alto, Ca. 94303 
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Ii 868© MACRO ASSEMBLER, VI. 



PAGE 1 



; REF. NO. D3 

.; PROGRAM NAME DECHL 



0000 210001 

0003 2D 

0004 2C 

05 C20900 
►_.ct©8 25 

0009 2D 

000A 2D 
000B 2C 

000C C20F00 

000F 2D 

0000 



DECHL 



SKIP 



MACRO 

DCR L 

INR L 

JNZ SKIP 

DCR H 

DCR L 
ENDM 



EXAMPLE OF USE 

H, 100H 



+ 
+ 
+ 

+ 
+SKIP 

+ 



SKIP 



LXI 

DECHL 

DCR 

INR 

JNZ 

DCR 

DCR 

DCR 
INR 
JNZ 

DCR 
END 



SKIP 



L 
L 
S\ 
H 

L 



L 
L 
SKIP 



; DECREMENT L 
; INCREMENT L 
; JUMP IF L <: 
; DECREMENT H 

; DECREMENT L 







i DECREMENT L 
i INCREMENT L 
i JUMP IF L <> 
i DECREMENT H 

.: DECREMENT L 

•> DECREMENT L 
; INCREMENT L 
i JUMP IF L <> 

; DECREMENT L 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



04 



□ 4004 08008 Q8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



Morse Code 

The program receives message text typed on an ASR 33 teletype and send* 
the morse code equivalent to output port 10 bit 0. It contains a 256 
character buffer so that text can be typed in faster than it is sent. 
Typing a "control S" will stop code output without stopping additional 
input to the character buffer. To continue sending a "control G" is 
typed. Another function is that if one makes an error while typing 
text it can be corrected using the <- and then typing the correct letter 
le: now is the te«4me gor«-*«for all good men to. 

5v relay around 20-30ma. pull in to operate code oscillator or 
transmitter. 



None 



tty 33 to intellec 8 1/0 board UART. 



International morse code 

dot=^dot; dot=space between elements of a letter; 

dash=space between letters 

space=space bar on tty=7 dots=space between words 



dash=3 dots 



Registers Modified: 

A,B,C,D,E,H,L 



RAM Required: 

Ik 



ROM Required: 



Maximum Subroutine Nestinf Level: 



Atsernbter/CompHer Used: 

Intellec 8/Mod 8 Macro 
As gembler , Ver 1 . Q 



George B. McConnell 
Hunter Labs 



Company: 



9529 Lee Highway 
Fairfax, Va . 22030 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



D5 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 □ 8008 8080 □ 3000 



(use additional sheets if necessary) 



CMDST (CMDS2) 

AS STATED ON LISTING 

THESE SUBROUTINES ARE USED IN CONJUNCTION WITH OUTPUTTING 
SINGLE BITS OF CONTROL DATA. A SINGLE BIT OF OUTPUT DATA 
CAN BE CHANGED WITHOUT AFFECTING PREVIOUSLY ESTABLISHED 
OUTPUT CONDITIONS. 



PARALLEL I/O 
ROUTINE, BUT 



NONE 



AS STATED 



INTERFACE IS USED IN CONJUNCTION WITH THIS 
IS NOT REQUIRED TO RUN IT. 



AS STATED 



Registers Modified: 
A,B (A,B,C) 


Assembler/Compiler Used: 
PDP-10 MACRO ASSEMBLER 


RAM Required: 

ONE WORD (TWO WORDS) 


Programmer: 
STANLEY J. JACZYNSKI 


ROM Required: 

14 WORDS f 27 WORDS^ 


Company: 
EXTRION CORPORATION 


Maximum Subroutine Nesting Level: 
UNLIMITED 


Address: BQX ^^ 

BLACKBURN INDUSTRIAL PARK 



GLOUCESTER, MASS 0193fP-O34c 
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.; REGF. NO. D5 

.: PROGRAM NAME CMDST <CMDS2> 



TITLE * CMDST * 

SUBROUTINE FOR CHANGING 1 TO 8 BITS 

OF AN 8: -BIT COMMAND WORD IN RAM 

ENTER WITH 8-BIT MASK IN B 

<366 = CHANGE BITS AND 3 > 

THE VALUE OF THE BITS IN A 

AND HL POINT ING TO THE COMMAND WORD 

ON RETURN, A, AND ADDRESS HL 

CONTAIN THE NEW COMMAND WORD 

i IS THE BIT TO BE 0? 

; YES, DO AN "AND" 
;COMPLIEMENTMENT MASK 
.; "OR" WITH COMMAND WWD 

; "AND" WITH COMMAND WD 
i RESTORE MEMORV 



9000 


FEOO 


CMDST : 


CPI 





0002 


78 




MOV 


A, B 


0003 


CAOB00 




JZ 


ZSET 


0006 


2F 




CMA 




y? 


B6 




ORA 


M 


_<08 


C30C00 




JMP 


MSET 


000B 


A6 


ZSET: 


ANA 


M 


000C 


77 


MSET : 


MOV 


M, A 


000D 


C9 




RET 





000E FE00 

0010 79 

0011 CA1F00 

0014 2F 

0015 B6 

0016 4F 

0017 78 

0018 2F 

r ^19 23 
--.lA B6 
001B 47 
001C C32500 



TITLE : :* CMDS2 * 

SUBROUTINE FOR CHANGING 1 TO 16 BITS 

OF A 16-BIT COMMAND WORD IN RAM 

ENTER WITH 16-BIT MASK IN BC 

< 077775 = BITS 1 AND 15 > 

THE VALUE OF THE BIT <S> IN A 

AND HL POINTING TO THE COMMAND WORD 

LSD, M MSD IN NEXT LOC. 

ON RETURN, BC AND ADDRESS HL, HL+1 

CONTAIN THE NEW COMMAND WORD 



CMDS2 : 



CPI 

MOV 

JZ 

CMA 

ORA 

MOV 

MOV 

CMA 

I NX 
ORA 
MOV 
JMP 





A, C 
ZSET2 

M 
C, A 

A, B 

H 
M 

B, A 
MSET2 



i IS THE BIT TO BE 

; YES , WELL GO ! "AND" 

; COMPLIMENT MASK 

; "OR" WITH COMMAND LSD 

; STORE NEW LSD IN C 

i GET MASK MSD 

> COMPLIMENT MASK 

; INCREMENT POINTER 

i "OR" WITH COMMAND MSD 

.; STORE NEW MSD IN B 
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PRGE 2 



00 IF A6 

0020 4F 

0021 78 

0022 23 

0023 A 6 

0024 47 

0025 70 

0026 2B 

0027 71 

0028 CS» 

0000 



ZSET2 



MSET2 



ANA 


M 




MOV 


C, 


A 


MOV 


A, 


B 


I NX 


H 




ANA 


M 




MOV 


B, 


A 


MOV- 


M, 


B 


DCX 


H 




MOV 


M, 


c 


RET 






END 







"AND" WITH COMMAND LSD 
STORE NEW LSD IN C 
GET MASK MSD 
BUMP POINTER 
"AND2" WITH COMMAND MSD 
STORE NEW LMSD IN B 
REPLACE NEW COMMAND 
WORD IN RAM 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref N ° 



D12 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 □ 8008 £1 8080 



(use additional sheets if necessary) 



Clock Subroutine 

Maintains a current time of day, decimal adjusted in BCD, of hours, 
minutes, and seconds. Must be invoked once each second, usually by 
an external interrupt. Time is stored in three bytes of memory, in the 
24-hour system or, optionally, in the 12-hour system. 



Clock Routine: No specific equipment is designated. 
Test Program: Intellec 8/Mod 80 with TTY connected to 
the console output port. 



Clock Routine: None. 

Test Program: Monitor, Version 3.0 installed in Intellec. 



A standard CALL instruction or a RST instruction externally 
inserted after a system interrupt signal. The subroutine 
should be invoked once per second <for proper operation. 



A three-byte section of RAM is modified to reflect the current 
time each time the subroutine is invoked. This section of RAM 
may be accessed by other routines to use or display the current 
time as required. 



Registers Modified: 

Accumulator 



RAM. Required: 

3 bytes 



ROM Required: 

52 bytes 



Maximum Subroutine Nesting Level: 

One (the subroutine itself) 



Assembler/Compiler Used: 

8080 Macro Assembler, V3.0 



Programmer: 

M. M. Dodd 



Company: , 

Telcom, Inc. 



8027 Leesburg Pike 
Vienna, VA 22180 



98-034B 
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0000 3R3400 
0003 C601 

0005 27 

0006 322400 
0009 FE60 

000B CO 

>0C C6R0 

000E 323400 
0011 3R3500 
0014 CE00 

0016 27 

0017 323500 
001R FE60 

001C CO 

001D C6R0 

001F 323500 
0022 3R3600 
0025 CE00 

0027 27 

0028 323600 
002B FE24 



002D CO 
002E C6DC 



REF NO. D12 

PROGRAM TITLE CLOCK SUBROUTINE 



"CLOCK" IS fl SUBROUTINE WHICH MAINTAINS A 
THREE-BVTE STORAGE OF THE CORRECT TIME, 
EXPRESSED AS TWO BCD DIGITS PER BVTE. THE 
TIME IS MAINTAINED IN THE 24-HOUR SVSTEM 
OR, OPTIONALLY, IN THE 12-HOUR SVSTEM. 
EACH TIME THIS SUBROUTINE IS INVOKED, THE 
STORED TIME IS INCREMENTED BV ONE SECOND 



CLOCK 



LDA 


TIME 


AD I 


1 


DAA 




STA 


TIME 


CPI 


60H 


RNZ 




AD I 


<NOT 60H>+1 


STA 


TIME 


LDA 


TIME+1 


AC I 





DAA 




STA 


TIME+1 


CPI 


60H 


RNZ 




AD I 


<NOT 60H>+1 


STA 


TIME+1 


LDA 


TIME+2 


AC I 





DAA 




STA 


TIME+2 


CPI 


24H 


CPI 


12H 



RNZ 
AD I 

AD I 



<NOT 24H>+1 
<NOT 12H>+1 



GET SECONDS 
INCREMENT SECONDS 
AND ADJUST IT 
STORE IT 

CHECK FOR 60 SECS 
NOT 60 - RETURN 
RESET SECS TO 
ALSO SET CARRV 
STORE NEW SECS 
GET MINUTES 
INCREMENT MINUTES 
ADJUST IT 
STORE MINS 
CHECK FOR 60 MINS 
NOT 60 - RETURN 
RESET MINS TO 
ALSO SET CARRV 
STORE NEW MINS 
GET HOURS 
INCREMENT HOURS 
ADJUST IT 
STORE HOURS 
CHECK FOR 24 HOURS 
CHECK FOR 12 HOURS - REMOVE 
SEMICOLON TO ACTVATE THIS 
INSTRUCTION AND DELETE 
ABOVE INSTRUCTION FOR 12- 
HOUR OPERATION 
NOT MAX HOURS - RETURN 
RESET HOURS TO 
ALSO SET CRRRV 
RESET HOURS TO IF 
USING 12-HOUR SVSTEM. REMOVE 
SEMICOLON TO ACTIVATE. DELETE fi 
i INSTRUCTION 
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F'HGE 2 



083:8 


ji:L' .!■•-:• fit::: 1 


087-3- 


09 


8834 


888888 



TIME 



MHLH;. 



STR 

RET 

DB 

END 



TIME+ 



M, fcl, U 



5 TORE MEN HOURS 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



D13 



D 4004 D 4040 □ 8008 Gf 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



Interrupt driven clock routine 

Uodating of clock located in RAM based on 100 ms time 
intervals. Pulses arriving on interrupt line. Four stor- 
age locations reserved for 100ms counter, sees counter 
rams counter and hour counter. One location for interval 
counter, one for oreset interval and one for flao- indica- 
ting interval has elaosed. Ratine; of clock takes about 
70 microsecs. 

External clock oscillator or divider to produce interrrmt 

Dulses 100 ms apart. 

CRT for test of program with the supplied test routine 



Intellec 8 Monitor Ver 3.0 for testing of program 
All software to utilize information from clock 

If required: Preset interval and starting time 



Incrmenting of storage locations for clock and interval 
counters, setting of interval flag: wh^n interval has 
elaosed 



Registers Modified : 

None 



RAM Required: 



7 bytes + 4- bytes of stack 



ROM Required 

67 bytes 



Maximum Subroutine Nesting Level: 

1 



Assembler/Compiler Used: 

8080 Ver 5.0 k***em^» v 



Programmer: 

Tor M. Jansen 



Company: Central laboratory 
Norwegian telecom. Administr. 



Address: p#0#B# ^ 

2007 Kjeller, NORWAY 



98-0348 
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REF. NO. DE- 
PROGRAM NAME INTERRUPT CLOCK DRIVEN CLOCK ROUTINE 

.: TIME 750312 TJA 

.: INTERRUPTED DRIVEN CLOCK ROUTINE 

■> INTERRUPT INSTRUCTION RST 8 <CF> 

.• INSTRUCTION AT 0008-.JMP TIME 



1000 




ORG 


1000H 


1000 00 


MSC : 


DB 





1001 00 


SECC : 


DB 





1002 00 


MINC: 


DB 





1003 00 


HRC : 


DB 





1004 00 


INTC: 


DB 





1005 0A 


PINT: 


DB 


10 


'*&& 00 


FINT: 


DB 






; MACRO FOR ADDRESSING, INCREMENTING 



1007 34 

1008 BE 

1009 C26610 
100C 3600 
100E C3 



COUNT 



INCOM 



i AND COMPARING THE DIFFERENT 
i COUNTERS IN ROUTINE 
.: NAME IS THE NAME OF COUNTER 
> COUNT IS MAX VALUE OF COUNTER 



NAME , VALUE 
H, NAME 
A, VALUE 
INCOM 



MACRO 

LXI 

MVI 

CALL 

ENDM 

; SUBROUTINE FRO INCREMENTING AND 

.: DIFFERENT COUNTERS AND COMPARE IT 

.;TO VALUE. IF NOT EQUAL SKIP TO 

.; END OF PROGRAM 



■> SET COUNTER ADDRESS 
.; SET CMAX COUNT 



INR 


M 


CMP 


M 


JNZ 


FIN1 


MVI 


M, 


RET 




J MAIN 


CLOCK ROUTINE 



.; I NCR COUNTER NAME 



100F F5 



TIME 



PUSH 



PSN 
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PRGE 2 



1G10 


E5 




PUSH 


H 






+ 


COUNT 


MSC, 10 


1011 


310010 


+ 


LXI 


H.. 0100OH 


1014 


3E0R 


+ 


MVI 


R, 00O0RH 


1016 


CD0710 


•+- 


CRLL 


I NuuM 


1019 


210O10 




LXI 


H, MSC 


10 IC 


3E0R 




MVI 


R, O000RH 


101E 


CD0710 




CRLL 


INCOM 






+ 


COUNT 


SECC 60 


1021 


210110 


+ 


LXI 


H, 01001H 


1024 


3E3C 


+ 


MV I 


R, 0003'CH 


1026 


CD0710 


+ 


CRLL 


INCOM 


102 9 


210110 




LXI 


H, SECC 


10 2C 


3E3C 




MV I 


R.. 0003CH 


102E 


CD0710 




CRLL 


I NCOM 


1031 


210410 




LXI 


H, INTO 


1034 


34 




INR 


M 




3R0510 




LDR 


PINT 


j...:!"'-! 


BE 




CMP 


M 


103:9 


C24310 




■JNZ 


LflBl 


103:C 


3:600 




MV I 


M, 


103:E 


3E01 




MV I 


R, 1 


1040 


320610 




STR 


FINT 






+LRB1 


COUNT 


MINC, 60 , 


1043 


210210 


+ 


LX I 


H, O1O02H 


1046 


3E3C 


+ 


MV I 


R, O003CH 


1048 


CD 07 10 


+ 


CRLL 


INCOM 


104B 


210210 




lx: i 


H, MINC 


104E 


3E3C 




MV I 


R, 00O3CH 


1050 


CD0710 




CALL 


I NCOM 






+ 


COUNT 


HP.C, 24 


1053 


210310 


+ 


LXI 


H, 01O03H 


1056 


3E18 


+ 


MV I 


R, 0O01 8H 


1058 


CD0710 


+ 


CRLL 


I NCOM 


105B 


210310* 




LXI 


H, HP.C 


195E 


3E18 




MVI 


R, @@01SH 


I960 


CD0710 




CRLL 


INCOM 


1963 


C36710 




•JMP 


FIN 


3 £vE<£ 


El 


FIN1: 


POP 


H 


El 


FIN: 


POP 


H 


1068 


Fl 




POP 


PSW 


1069 


FB 




EI 





SAVE REGISTER-. 

JPDRTE MSC COUNTER 

, SET COUNTER ROD RE': 
, SET CMRX COUNT 



'-> t i '- 1 J i J r a i fc. h. n l-' u r, c -• -• 
SET MRX COUNT 



UPSDATE SEC-L 
.i SET L 
, SET C 



OUNTER 

OUNTER RDDRE'J 
MRX COUNT 



SET COUNTER ADDRESb 
SET MRX COUNT 



; I NCR INTERVAL COUNTER 
.; GET PRESENT INTERVAL 



..RESET INTERVAL COUNTER 

, SET INTERVAL FLAG 
JPDRTE MINUTE COUNTER. 



.; SET 
, SET 



OUNTER ADDREli 
MRX COUNT 



SET COUNTER ADDRESS 
SET MRX COUNT 



UPSDRTE HOUR COUNTER 

.; SET COUNTER ADDREi 
.; SET CMRX COUNT 



SET COUNTER ADDRESS 
SET MRX COUNT 



i DUMMV POP 

, RESTORE REGISTERS 
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RET 
END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref. no. 



D14 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 Q 8080 



(use additional sheets if necessary) 



Calendar Subroutine 

Uses three bytes of RAW to store the current date arranged as 
two BCD digits per byte. The date is adjusted for 
months with 28, 29, 30, or 31 days and February is adjusted 
for leap years 1976, 1980, and 1984. 



Calendar Subroutine - None 

Test Program - Intellec 8/Mod 80 with TTY connected to 
console output port. 



Calendar Subroutine - None 
Test Program - Monitor V3.0 



The subroutine should be called once per day, probably by 
using an external interrupt. Each time it is called, it 
will add one day to the stored date and make any necessary 
adjustments. 



The three bytes of data will be modified each time the 
subroutine is called. The date may be examined by other 
routines in the main program. 



Registers Modified: 

None (all saved) 



RAM Required: 

9 bytes (including stack) 



ROM Required: 

109 bytes 



Maximum Subroutine Nesting Level: 

1 (the subroutine itself) 



Assembler/Compiler Used: 

8080 Macro Assembler V3.0 



Programmer: 

Donald E. Shorter 



Company: 

Telcom, Inc. 



Address: 8Q27 Leesburg p ike 
Vienna, Va. 22180 



98-034B 
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REF. NO. D14 

PROGRAM NAME CALENDAR SUBROUTINE 



'CAL' IS A CALENDAR SUBROUTINE WHICH 
MAINTAINS THE CURRENT DATE WHEN CALLED 
ONCE A DAV, THE IS ALWAVS ADJUSTED FOR 
MONTHS WITH 28, 29, 30, OR 31 DAYS 
FEBRUARY IS ADJUSTED FOR LEAP VEARS 197*=:. iq 8 
AND 1984. ADDITIONAL LEAP VEARS MAV BE ADDED 
IF DESIRED. 



0000 


E5 


0001 


F5 


0002 


216EO0 


0005 


7E 


0006 


FE31 


0008 


DA2400 


000B 


3601 


" "'0D 


2B 


- -<0E 


7E 


000F 


C601 


0011 


27 


0012 


i - r 


0013 


FE13 


0015 


DA2100 


0018 


3601 


001A 


cd .i 


001B 


■£.'.£• 


001C 


7E 


001D 


C601 


001F 


27 


0020 


i' (' 


0021 


Fl 


0022 


El 


0023 


C9 


0024 


3A6D00 


0027 


FE04 


0029 


CA4300 


002 C 


FE06 


002E 


CA430O 


0031 


FE09 


0033 


CA4300 


0036 


FEU 


0038 


CA4300 


3B 


FE02 


003D 


CA4C00 


0040 


C31C00 



CAL: 



CAL1 



CAL2: 



CAL 



FIX: 



PUSH 


H 




PUSH 


PSW 


.: SAVE HL AND PSW 


LXI 


H, DAV 




MOV 


A, M 




CPI 


31H 




JC 


FIX 




MVI 


M, 1 


• RESET DAV TO 1 


DCX 


H 


TO MONTH 


MOV 


A, M 




AD I 


1 


INCREMENT MONTH 


DAA 




ADJUST IT 


MOV 


M, A 


STORE IT 


CPI 


13H 


CHECK FOR JAN 


JC 


CAL3 


RETURN IF NOT JAN 


MV I 


M, 1 


RESET MONTH TO JAN 


INK 


H 




I NX 


H .; 


TO VEAR 


MOV 


A, M 




AD I 


1 




DAA 






MOV 


M, A 




POP 


PSW 




POP 


H 




RET 






LDA 


MONTH 




CPI 


4 


APRIL 


JZ 


FIX1 




CPI 


6 .; 


JUNE 


JZ 


FIX1 




CPI 


9 ; 


SEPTEMBER 


JZ 


FIX1 




CPI 


11H .; 


NOVEMBER 


JZ 


FIX1 




CP I 


'•£ .; 


FEBRUARY 


JZ 


FIX2 




JMP 


CAL2 .; 


NO FIX NECESSARY 
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0043 7E 


FIX1: 


MOV 


A, M 




0044 FE30 




CPI 


30H 


; CHECK. FOR MAX DAYS 


0046 DA1D00 




JC 


CAL2+1 


; NO FIX <30 DAVS 


l"iQ49 C30B00 




JMP 


CAL1 


; GO RESET DAVS 


'4C 3A6F00 


FIX2: 


LDA 


VEAR 


.; GET CURRENT VEAR 


_«j4F FE76 




CPI 


76H 




0051 CA6700 




JZ 


LEAP 




0054 FE80 




CPI 


80H 




0056 CA6700 




JZ 


LEAP 




0059 FE84 




CPI 


84H 




005B CA6700 




JZ 


LEAP 




005E 7E 




MOV 


A, M 


.; GET DAV 


005F FE28 




CPI 


28H 


.; CHECK FOR MAX DAVb 


0061 DR1D00 


FIX3: 


JC 


CAL2+1 


.; NO FIX CMAX DAVS 


0064 C30B00 




JMP 


CAL1 




0067 7E 


LEAP : 


MOV 


A, M 


.; GET DAVS 


0068 FE29 




CPI 


29H 


; CHECK FOR MAX DAVS 


006A C36100 




JMP 


FIX3 




006D 01 


MONTH : 


DB 


1 




006E 01 


DAV : 


DB 


1 




006F 75 


VEAR : 


DB 


75H 




W00 




END 
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LIBRARY SUBMITTAL FORM **. no. dis 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 8080 



(use additional sheets if necessary) 



PASS 



Program PASS transfers addresses of parameters between a calling 
program and subroutine. See attached sheet for details. 



N/A 



N/A 



Parameter addresses defined by calling program. 



The above parameter addresses are moved to an area reserved 
by the subroutine. 



Registers Modified: 

All 



RAM Required: . 

As required by calling 

program and subroutine 



ROM Required: 

24 bytes for PASS 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

8080 Macro Assembler Ver 3.0 



Programmer: 

Richard Young 



Company: 

Naval Air Rework Facility Code 323 



Address: U.S. Naval Air Station 
Alameda, California 94501 



98-034B 
7-31 



FUNCTION: Program PASS transfers addresses of parameters 

between a calling program and subroutine. These 
addresses, defined by the calling program, are 
moved into an area reserved by the subroutine. 
The calling program is assumed to have the following 
coding sequence: 



CALL SUBR 
DW PI Address of P 



DW P2 Address of P* 



DW PN Address of P. 

(Next Instruction) 



n 



The general form of the subroutine must be: 
PASS EQU XXXXH _ Starting address of PASS. 
IP1 DW 
IP2 DW 

List Parameters in Label Field 




IPN DW 
SUBR CALL PASS 

DW IP1 
(First instruction of Subroutine) 



RET 



PASS also sets the correct return address in the stack. 
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REP. NO. D15 
PROGRAM NAME PASS 



PROGRAM "PASS" TRANSFERS ADDRESSES OF PARAMETERS 
BETWEEN A SUBROUTINE AND IT'S CALLING PROGRAM. 



1500 




1500 


El 


1501 


5E 


1502 


k! S 


1503: 


56 


1504 


OIFCFF 


1507 


09 


1508 


7D 


1509 


E3: 


-. -<0A 


4E 


150B 


d S 


150C 


46 


158D 


<dS 


150E 


EB 


158F 


71 


1510 


'tdS 


1511 


70 


1512 


C-S 


1513: 


EB 


1514 


BB 


1515 


C20A15 


1518 


E3 


1519 


110500 


151.C 


19 


151D 


E9 


€1000 





PASS 



LOOP 



ORG 


1500h 


POP 


H 


MOV 


E, M 


I NX 


H 


MOV 


D, M 


LXI 


B, -4 


DAD 


B 


MOV 


A, L 


XTHL. 




MOV 


C, M 


I NX 


H 


MOV 


B, M 


I NX 


H 


XCHG 




MOV 


1-1, C 


I NX 


H 


MOV 


M, B 


I NX 


H 


XCHG 




CMP 


E 


JNZ 


LOOP 


XTHL 




LXI 


D, 5 


DAD 


D 


PCHL 




END 





GET ADDRESS PUSHED BV SUBROUTINE 
SET DE TO POINT TO START 

OF SUBROUTINE'S 

PARAMENTER LIST. 
LOAD -4 INTO BC AND ADD TO JHL TO_ 

OBTAIN SUBROUTINE ENTRV ADDREbb. 
STORE LOW 8-BITS IN A. 
GET ADDRESS PUSHED BV CALLING 

PROGRAM-USE AS POINTER TO 

START OF PARAMETER LIST. 
LOAD PARAMETER 

ADDRESS 

INTO BC. 
INCREMENT POINTER TO NEXT PARAMETER. 
EXCHANGE DE WITH HL. 
STORE PARAMETER ADDRESb 

IN SUBROUTINE'S 

PARAMETER LIST. 
INCREMENT POINTER TO NEXT PARAMETER. 
EXCHANGE DE AND HL. 
COMPARE E WITH A. 
RETURN TO LOOP IF THERE IS ANOTHER 

PARAMETER.: OTHERWISE SET STACK FOR 

PROPER SUBROUTINE RETURN TO 

CALLING PROGRAM. 
SET DE=5 AND ADD TO HL TO 

OBTAIN PROPER RETURN TO SUBROUTINE. 
RETURN TO SUBROUTINE. 
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LIBRARY SUBMITTAL FORM 



Ref. No. 



D17 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 □ 8008 Q 8080 



(use additional sheets if necessary) 



Data Array Move 

A contiguous array of data may be relocated in memory, regardless of 
the magnitude and direction of the move. The source and destination 
array locations may overlap. The max. array size is 2 16 bytes. 



Any program sequence which stores input parameters into RAM in the 
format indicated below. 



Source array starting address, 2 bytes: 

<SSA> = Lo order source array starting address 
<SSA + 1> = Hi order source array starting address 

Source array ending address, 2 bytes: 

<SEA> = Lo order source array ending address 
<SEA + 1> = Hi order source array ending address 

NOTE: Source array ending address must be greater than source array 
starting address. 
Destination array starting address, 2 bytes: 

<DSA> = Lo order destination array starting address 
<DSA + 1> = Hi order destination array starting address 

Array of data starting at source array starting address and ending 
at source array ending address has been stored starting at destination 
array starting address. 



Registers Modified: 

A, F, B, C, D, E, H, L 


Assembler/Compiler Used: 

Intellec 8/Mod 80 Ver. 2.0 


RAM Required: 

6 bytes 


Programmer: 

Richard Derickson 


ROM Required: 

58 bytes 


Company: 

Logical Services Inc. 


Maximum Subroutine Nexting Level: 

1 


Address: 

1901 Old Middlefield Rd., Suite 17 
Mountain View, CA 94043 
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i REF. NO. D17 

.; PROGRAM TITLE DATA ARRAV MOVE 



; DATA ARRAV MOVE SUBROUTINE 



0100 
0100 
0102 
0104 
0106 
0109 
010A 
010D 
010E 
010F 
0110 
0111 

0112 
113 
W116 
0117 
0118 
8119 
011A 
011D 

0120 

0121 
0122 
0123 
0124 
0125 
0128 
0129 
012A 
012B 
012C 
012F 

0130 

0131 
0132 
0133 
0134 
0137 

J.3A 
013B 
013C 



2A0001 

EB 

2A0201 

7D 

93 

4F 

7C 

9A 

47 

2A04O1 

7D 

93^ 

7C 

9A 

D22801 

CD3701 

C8 

1A 

r' r' 

13 

C31D01 

09 

EB 

09 

EB 

CD3701 

C8 

1A 

{ (' 

IB 

2B 

C32C01 

OB 

3EFE 

B9 

C0 

3EFF 



SSA 
SEA 
DSA 
DAM 



REVL 



FWD : 



FWDL 



TEST 



ORG 0100H 
DS 2 
DS 2 
DS 2 

LHLD SSA 
XCHG 

LHLD SEA 
MOV A, L 
SUB E 



MOV 
MOV 
SBB 
MOV 



U, A 

A, H 
D 

B, A 
LHLD DSA 
MOV A, L 
SUB E 
MOV A, H 
SBB D 
JNC FWD 
CALL TEST 
RZ 

LDAX D 

MOV M, A 

I NX D 

I NX H 

JMP REVL 

DAD B 

XCHG 

DAD B 

XCHG 

CALL TEST 

RZ 

LDAX D 

MOV M, A 

DCX D 

DCX H 

■JMP FWDL 

DCX B 

MVI A, OFEH 

CMP C 

RNZ 

MVI A, OFFH 



•CSSA>=SOURCE ARRAV START ADR 
<SEA>=SOURCE ARRAV END ADR 
<DbA>=DESTINATION ARRAV START ADR 

DE=SOURCE START 
HL=SOURCE END 
DETERMINE ARRAV SIZE-1 



.: BC=ARRAV SIZE-1 

; HL=DESTINATION START 

; DETERMINE MOVE DIRECTION 



IF CARRV, SSA>DSA < REVERSE DIR> 
SET UP FOR FORWARD MOVE 
DECREMENT ARRAV SIZE 
RETURN WHEN ARRAV SIZE=0 
A=SOURCE DATA 

DATA STORED AT DESTINATION 
SOURCE ADR INCREMENTED 
DESTINATION ADR INCREMENTED 
REITERATE REVERSE LOOP 
HL=DESTINATION ARRAV TOP ADR 
HL=SOURCE BOTTOM, DE=DEST TOP 
HL=SOURCE TOP 

HL=DEST TOP, DE=SOURCE TOP 
DECREMENT ARRAV SIZE 
RETURN WHEN ARRAV SIZE=U 
A=SOURCE DATA 

DATA STORED AT DESTINATION 
SOURCE ADR DECREMENTED 
DESTINATION ADR DECREMENTED 
REITERATE FORWARD LOOP 
BC=ARRAV SIZE-2 

ARRAV SIZE NOT 6, CONTINUE LOOP 
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013E B8 
013F C'3 



CMP B 
RET 



.; Z FLAG INDICATES IF ARRAV bIZE=0 







.; WRITE 


0140 


21 tfO02 


INIT: 


0143 


AF 




0144 


t' i' 


WL: 


0145 


2-i- 




0146 


3C 




0147 


C24401 




014A 


00 


; TEST 


014B 


210002 


Tl: 


014E 


110F02 




0151 


01E802 




0154 


C37801 





0157 211102 

015A 111802 

15D 011202 

tH60 C 3 7 801 

0163 21C702 
0166 11E602 
0169 012702 
016C C37801 



.-.ARRAV WRITTEN, MONITOR BREAK. HERE 
WITH NO OVERLAP OF ARRAYS 
; SSA ASSIGNED O20OH 
.; SEA ASSIGNED O20FH 
.; DSA ASSIGNED 02E8H 



.; TEST 
T2: 



; TEST 
T3: 







: TEST 


REVERSE MOVE 


016F 


215F02 


T4: 


LXI H, 025FH 


0172 


11C402 




LXI D, 02C4H 


0175 


014FO2 




LXI B, 024FH 


0178 


220001 


EXEC : 


SHLD SSA 


017B 


EB 




XCHG 


017C 


220201 




SHLD SEA 


017F 


210401 




LXI H, DSA 


0182 


71 




110V M, C 


0183 


2-£ 




I NX H 


0184 


70 




MOV M, B 






.; CALL 


DATA ARRAV M 


0185 


CDO601 




CALL DAM 


0188 


C38801 


LOOP : 


JMP LOOP 


0000 






END 



.; DATA ARRAV MOVE TEST PROGRAM 

ASCENDING DATA FROM LOCATION O200H THRU 02FFH 
LXI H, 020OH 
XRA A 
MOV M, A 
I NX H 
INR A 
JNZ WL 
NOP 
FORWARD MOVE 
LXI H, 0200H 
LXI D, 020FH 
LXI B, 02E8H 
.JMP EXEC 
FORWARD MOVE WITH OVERLAP OF ARRAVb 
LXI H, 0211H ; SSA ASSIGNED 0211H 
LXI D, 0218H .; SEA ASSIGNED 0218H 
LXI B, 0212H ; DSA ASSIGNED 0212H 
JMP EXEC 
REVERSE MOVE WITH NO OVERLAP OF ARRAYS 
LXI H, 02C7H .; SSA ASSIGNED 02C7H 
LXI D, 02E6H .; SEA ASSIGNED 02E6H 
LXI B, 0227H .; DSA ASSIGNED 0227H 
JMP EXEC 
REVERSE MOVE WITH OVERLAP OF ARRAVb 

SSA ASSIGNED 025FH 

SEA ASSIGNED 02C4H 

DSA ASSIGNED 024FH 



:.SA, SEA, DSA, LOADED 
MOVE SUBROUTINE 

.; ARRAY MOVED, MONITOR BREAK HERE 
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MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM Ref . No . dis 



D 4004 D 4040 □ 8008 8080 □ 



3000 



Program 
Title 

Function 



Required 
Hardware 



(use additional sheets if necessary) 



SHELLSORT 

INCREMENT)^ ™ PLACE USING SHELL ' S METH0D (DIMINISHING 



MCS-80 



Required 
Software 



Input 
Parameters 



DRIVER PROGRAM 



(ADDRESS OF ARRAY, LENGTH) 



Output 
Results 



ARRAY ELEMENTS ARE SORTED WITH SMALLEST ELEMENT FIRST 



Registers Modified: 



RAM Required: 

12 BYTES 



ROM Required: 

approx. 1 FQH BYTFS 



Maximum Subroutine Nesting Level: 
6 



Assembler/Compiler Used: 

PL/M 8008/8080 



Programmer: 

CHARLES A. PALERMO 



Company: 

GENERAL HYNAMTfS 



Address: 



MZ 2119, Box 748 

FT. WORTH, TEXAS 76101 



817/732-4811 



98-034C 

7-39 



00001 
00002 
00003 
00004 
00005 
0000b 
00007 
00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

0001b 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

0002b 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

0004B 

00049 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
4 
4 
5 
5 

6 

6 

7 

6 

6 

6 

5 

4 

3 

3 

2 

2 

1 

1 

1 

1 

1 

2 

1 



/*REF. NO. Did */ 
/♦PROGRAM TITLE SSORT */ 



/♦DRIVER PROGRAM USED TO VERIFY PROCEDURE. ♦ / 
DECLARE BUG) BYTE INITIAL (10 , 9, 8, 7, 6, 5 
3, 2, 1); 
DECLARE 1 BYTE, N BYTE INITIAL (10); 



SHELLSORT: PROCEDURE (ARRAYPTR, N); 



4, 



/* ThIS PROCEDURE IS USED 
RE-DECLARING A AND TEMP 
ADDRESS OF IriE FIRST KLE 
IT IS RESONABLY EFFICIEN 
IF THE ARRAY IS IN ORDER 
SEE KNUTH VOL. Ill SEARC 
DECLARE ARRAYPTR ADDRESS 
(N,I) ADDRESS, (SWITCHED 
IF N <=1 THEN RETURN,' 
INCR=N/2 ; 
DO WHILE INCR>0; 
DO 1=0 TO incr; 

switched* i; 
do while switched; 
s*itched=o;k=i;j=incr+ 

DO WhILE J<n; 

IF A(K)>A(J) THEiM 

DO; 

TEMP=A(K); A(K)=A(J); 

end; 
k=j; 
J=J+INCR; 

end; 
end; 
end; 
JNCR=INCR/2; 
end; 

RETURN; 

END SHELLSORT; 



TO SORT BYTE ARRAYS OF LENGTH N. 
AS ADDRESS. ARRAYPTR IS THE 
MENT OF THE ARRAY TO BE SORTED. 
T FOR N<=1000 AND DOESN'T DEGRADE 
(POSSIBLE PROBLEM WITH QUICKSORT) 
HING AND SORTING FOR DETAILS. ♦ / 
, A BASED ARRAYPTR BYTE, 
,J,K,TEMP) BYTE, INCR ADDRESS; 



i; 



A(J)=TEMP; SWITCHED=1; 



NO PROGRAM 



/♦ THE FOLLOWING IS 
CALL SHELLSORT (.B, 
DO 1=0 TO N-l; 
OUTPUT(l) = h(l); 

end; 

EOF 
ERRORS 



THE REST OF THE TEST DRIVER PROGRAM ♦ / 
10); 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No v 



D19 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 □ 8008 8080 □ 



3000 



(use additional sheets if necessary) 



Text Storage Program 



Allows text to be stored in memory using a letter of the 
alphabet as a pointer. After the message is stored, it can 
be retrieved by depressing a single key on the TTY. Up to 
32 messages may be stored and retrieved independently 



8080, memory and TTY I/O port 



None, other than this prograi 



See program listing heading 



Output is previously stored message 



Registers Modified: 
All 



RAM Required: 

100H & buffer 



ROM Required: 

100H max 



Maximum Subroutine Nesting Level: 
1 



Assembler/Compiler Used: 

Cross 11 



Programmer: 

Paul F. Fitts 



Company: 

Innovatek Microsystems Inc. 



Address: 



Smithfield Road 
Millerton, New York 125&6 



98-034C 
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; REF, . NO. D19 

, PROGRAM NAME TEXT STORAGE PROGRAM 



8631 
0803 
8884 
8882 

0081 
0001 
0001 
0001 

0U04 

8866 



LOAD CHAR TO MEM BUFFER SAVING POINTER 
READ CHAR FROM MEM BUFFER USING POINTER 
POINTER IS LON 5 BITS FROM TTV KBD 
; GIVING 22 POSSIBLE POINTERS 



INNOVATEK MICROSYSTEMS INC 
SMITHFIELD RD 
MILLERTON, N. V. 12546 
TEL 914-372-9122 



.; PROGRAMMER : PAUL F. FITTS 

.: DATE : JUNE 26, 1975 
CONTROL A CAUSE ENTRY INTO LOAD MODE 
CONTROL B ALLOWS ENTRY OF TEXT USING 

i IMMEDIATE PREVIOUS CHARACTER AS POINTER, 

.; ECHOING CHARACTER FOLLOWED BY ~ 
CONTROL C SIGNALS END OF MESSAGE 
CONTROL D CAUSES EXIT FROM TEXT ENTRY MODE 
GUEbTS MAY BE GREETED BY MESSAGE PREVIOUSLY 

;bTORED AND RETRIEVED BY TYPING FIRST 

; LETTER OF THEIR NAME 
PROGRAM REQUIREDS 166 BYTES PLUS 64 BYTES 

;FOR TABLE. MESSAGE BUFFER MAY BE ANY SIZE. 
TTY READER IS ENABLE BY BIT 6 OF OUT PORT 1 
TTV KBD READY INDICATED BY BIT 6 OF IN PORT 1 BEING 6 
TTY PRTR READY INDICATED BY BIT 2 OF IN PORT 1 BEING fl 
TTY PRINTER BUFFER IS OUT PORT 6 
TTY KBD BUFFER IS IN PORT 6 



THIS IS COMPATIBLE WITH INTELLEC 



CONSTANT DEFINITIONS 



SOH 

ETX 

EOT 

STX 

REN 

STRD 

STRG 

CHRDY 

KBDB 

PTRDY 

PTRB 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



81H 
63H 
84H 
82H 
61H 
61H 
81H 
81H 



84H 
8 



:• CNTRL A WITH PARITY 

; CNTRL C 

; CNTRL D 

; CNTRL B 

; READER ENABLE 

; STATUS OUT 

; STATUS REGION 

; CHAR RDY BIT 

; KBD IN PORT 

J PTR RDY BIT 

; PTR OUT PORT 
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OOFF 
0GFC 

111180 

8100 
8182 

8 I'll 6 

0109 
010B 
010C 
010 D 
010E 
O10F 
0110 

0112 
0116 
0113 
G11B 
811D 
011E 
011F 



21FE1F 

210002 
lH 202 
0E20 



GD 

C20B01 

CDS401 

FES1 

CA2601 

E61F 

07 

4F 

0608 

218802 

Q9 



0125 
0126 
0127 

0129 
012A 
012D 
012F 

0128 

8122 
9126 
9127 
012A 
012C 
012E 
0141 
0142 
014 6 
8149 
614C 
914D 
014E 
>0 
0151 
9152 



EB 
46 

CD9601 
FEFC 

C 22901 

C21281 

47 

CDS401 

FE84 

FE84 

CA1201 

FES2 

022601 

CD9681 

2A4082 

EB 

78 

£61F 

©7 

4F 

0600 



RUBOUT 
NETX 



INIT: 



INITLP 



GETC 



RTRLP 



LOADC 



EQU 
EQU 

ORG 
LX I 

lxi 
lx i 

MVI 

MOV 

I NX 

MOV 

I NX 

DCR 

JNZ 

CALL 

CPI 

JZ 

AN I 

RLC 

MOV 

MV I 

LXI 

DAD 



MOV 

I NX 

MOV 

XCHG 

MOV 

CALL 

CPI 

I NX 

JNZ 

JMP 

MOV 

CALL 

CPI 

CPI 

JZ 

CPI 

JNZ 

CALL 

LHLD 

XCHG 

MOV 

ANI 

RLC 

MOV 

MVI 



OFFH 
OFCH 

100H 

SP, STKA 
H, TELA 
D, BFRSP 

M, E 

H 

M, D 

H 

C 

INITLP 

GETCHR 

SOH 

LOADC 

1FH 

C, A 
B, 

H, TBLA 
B 



E, M 
H 
D, M 

B, M 

SNDCHR 

NETX 

H 

RTRLP 

GETC 

B, A 

GETCHR 
EOT 
EOT 
GETC 
STX 
LOADC 
SNDCHR 
BFPTR 

fl,B 
1FH 

C, fl 
B, 



RUBOUT 
NOT ETX 



INIT STACK POINTER 
FILL TBLA NITH START 
ADRS OF BUFFER SPACE 



CHAR FROM ITTV KBD 
CNTRL A 



TWO BUVTES / ADRS 



TABLE START ADDREbb 

ADD INDEX, NOW H&L POINT 

TO TABLE LOCATION WHERE lb 

.; STORED START ADRS OF MEbbAGE 

MOVE START ADRS TO D&E 



CHAR AADRS IN H&L 

GET CHAR FROM BUFFER & PRINT 

CHAR INVERTED 



CNTRL D 

LEAVE LOAD CHAR MODE 

CNTRL B, ARSTART MESSAGE 

ECHO CHAR 

START ADRS OF NEXT MESSAGE 



7-45 



3030 MACRO ASSEMBLER, VI. 



PAGE 2 



G154 210002 




LXI 


H, TBLA 


9157 09 




DAD 


B 


0158 72 




MOV 


M, E 


9159 22 




inx 


H 


915A 72 




MOV 


M, D 


015B EB 




XCHG 




91 5C 065E 




MVI 


B, •••"••■ 


015E CD9601 




CALL 


SNDCHR 


9161 CD8401 


LDCLP : 


CALL 


GETCHR 


0164 FEFF 




CPI 


RUBOUT 


9166 CA7B01 




JZ 


RBUT 


6169 47 




MOV 


B, A 


916A CD9601 




CALL 


SNDCHR 


016D 70 




MOV 


M, B 


016E 78 




MOV 


A, B 


916F FE02 




CPI 


ETX 


0171 22 




I NX 


H 


G172 C261'?i 




JNZ 


LDCLP 


9175 224002 




SHLD 


BFPTR 


Q178 C22601 




JMP 


LOADC 


917B 2B 


RBUT : 


DCX 


H 


r . ^ ^q ggcjQ 




MVI 


B, -'V 


■-^E CD9601 




CALL 


SNDCHR 


0181 C26101 




JMP 


LDCLP 


0184 2E01 


GETCHR : 


MVI 


A, REN 


0186 D201 




OUT 


STRD 


0183 AF 




XRA 


A 


0139 D201 




OUT 


STRD 


01SB DB01 


GTCHLP : 


IN 


STRG 


018D E601 




AN I 


CHRDV 


013F C28B01 




JNZ 


GTCHLP 


0192 DB00 




IN 


KBDB 


0194 2F 




CMA V 




0195 C9 




RET 




0196 DB91 


SNDCHR : 


IN 


STRG 


0198 E604 




AN I 


PTRDV 


019A C29601 




JNZ 


SNDCHR 


019D 78 




MOV 


A, B 


019E 2F 




CMA 




G19F D280 




OUT 


PTRB 


01A1 C9 




RET 




0200 




ORG 


20QH 


6200 


TBLA : 


DS 


64 


0240 4202 


BFPTR : 


DW 


BFRSP 


0242 


BFRSP : 


DS 


1000H 


1FFE 




ORG 


1FFEH 


1FFE 00 


STKA : 


DB 


6H 


1 110 




END 





H&L POINT TO TBL NHERE 
STRT ADRS IS TO BE STORED 



.; BUFFER ADRS IN H&L 



ECHO CHAR 

STORE IN BUFFER AREA 

END OF MESSAGE? 



; ESAVE ADRS OF NEXT MESSAGE 
: ERROR CORRECTION ROUTINE 

ENABLE READER 

CHAR READV? 

INPUT CHAR AND COMPLEMENT 

PTR BUFFER AVAIL? 

COMPLEMENT AND OUTPUT 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



D20 



D 4004 □ 4040 D 8008 ffl 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



Time Sharing Communications 

To communicate with medium to large scale computer system as an external 
time-share user. 



Intellec 8/mod 80, 4k RAM, 2 I/O ports, Acoustic Coupler (Modem) 
(Floppy disk for storage of Hex programs - optional) 



PLM compiler on host machine 

Monitor on 8080 

Disk Driver on 8080 - Optional 



NA 



NA 



Registers Modified: 

A,B,C,D,E,H,L,SP 


Assembler/Compiler Used: 

PLM 


RAM Required: 

4K 


Programmer: 

J1m Jowell 


ROM Required: 
NA 


Company: , 

Univ. of Texas at Houston(UTHERCC) 


Maximum Subroutine Nesting Level: 

NA 


Address: 65ig Fann1n 

Houston, Texas 77025 



98-014 R 
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8080 PLM1 VEkS 2.0 



00001 
00002 
*Q003 
.J004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
0002** 
00025 
00026 
00027 
00028 
"»029 
-J030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00CU0 
00041 
00042 
00043 
00044 
00045 
000<»6 
000*7 
00048 
00049 
00050 
00051 
00052 
00053 
""054 
055 
00056 
00057 
03058 
00059 
OOOoO 
00061 



2 

2 

2 

2 

1 

1 

2 

2 

2 

1 

1 

2 

2 

2 

1 

1 

2 

2 

2 

2 

1 

1 



♦/ 
♦/ 
♦/ 
♦/ 
♦/ 
♦/ 



800HI /♦ ASCII TIMF 3HA&ING COMMUNICATIONS ♦/ 
/* INTILLEC 8/MOG 80 »/ 

/♦THIS PROGRAM WAS WRITTcN TO 31 ABLE TO COMMUNICATE ♦/ 
/♦WITH A CCC TIME SHADING SYSTEM AS A EXTERNAL TIME SHARED 
/♦USER. A 3Y-PRC0UCT IS RECEIVING TH^ HEX OUTPUT FROM TH^ */ 
/♦PLM COMPILER. 

/♦AS THE PROGRAM STANJS NOW IT WILL P*INT £ITH-R ON THE 
/♦CONSOLE OR THE LIST uEVICE OEPFNDING ON THE CONTENTS OF 
/♦MEMORY LOCATION 3. (00 FOR CONSOLE, 80H FOR LIST) 
/♦IT IS PRESENTLY SAVING THE HEX COOE ON A FLOPPY DISK 
/♦AS YOU CAN SEE IT IS NOT SAVING ANY OF THE OTHER INFO 
/♦IN MEMORY, JUST THc HEX FILE. ♦/ 

OECLARE LIT LIT1RALLY #LIT£RALLY# ,OCL LIT #0'CLARE#; 

OCL OA LIT #01H#, T8RE LIT #0<*H#; 
/♦ OA = OATA AVAILABLE, T8RE = TRANSMITTER BUFFER ^MPTY »/ 

OCL PRO LIT #PROCEOURE#, OAT BYTE; 

OCL SECTR 3YTE; 

OCL BUFF ADO<ESS,BUF BASEO BUFF BYTE; 

OCL CCOUNT, SWITCHI BYTE; 

OCL STATUS BYTE, (I ,WORK , J,K,H> OYT^: 

OCL CR LIT #0OH#,LF LIT #0AH#,OATX BYTE? 
OCL HOG OATA CCR,LF,#ENTER 1 TO 7 FOR DISK, S TO STOP#,CR,LF> ; 

/♦FLOPPY PARAMETERS: 1 BYTE - UNIT, ORIVE ♦/ 

/ * 1 ADDRESS - SECTOR NUMBER ♦/ 

/ * 1 AOORESS - BUFFER LOCATION^/ 

/♦THE SYSTEM ALWAYS TRANSFERS 128 BYTES TO DISK. ♦/ 

OCL OPIV BYTE, <S,H) AOORESS? 
/♦STARTING FILE LOCATIONS ON THE FLOPPY DISK ♦/ 

OCL TRACK OATA (04hH, OEH, 017H, 020H, 029H, 032H, Q3BH,04t,H) t 
'* 01234567 ♦/ 

WRTOSKI PRO (DATTi; 

DCL WR LIT #37A3H#J 

DCL OATT AOORESS ; 

GO TO WRJ 
END WRTOSKJ 

CONSPRNT: PRO (CHAPS); 

DCL CHAR3 BYTh^Nf LIT #3C5QH#; 

PIT: go TO p'nt; 
ENb conjprnt: 

LIbTfPRNT: P-0 (OTX); 

OCL DTX BYTE,L0 LIT #3rtOFH#; 

GO TO lo: 
END LISTJPR?>ir; 



CONSSTAT: PRO (STS) 
OCL STS 3YTE; 
K = iNPJf (1) ; 
RETURN <; 

ENC CONiSTAT? 



BYT 



CRTiSTATl pro 
OCL CRSTS 
K = INPUT 
RETURN K; 

lNu crtistat; 



(C STS) 

3VTE; 

<*) : 



byte; 
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00062 1 CRTBOUTI PFO (CHU)J 

000o3 2 OCl CHAT BYTE.DUMM BYTE*, 

00Q6<» 2 OUMM = NOT CHAT; 

00 065 2 OUTPUT (♦) - DUMM? 

00066 2 ENG CRTJOUT; 

**»067 1 

068 1 CRT5INI PRO (INP) BYTE; 

00069 2 OCL INP 3YTE, K iYT _ ; 

00070 2 INP = INPUT U) V 

00071 2 K = NOT INP; 

00072 2 RETURN K; 

00073 2 END CRT$IN; 
0007<t 1 

00075 1 

00076 1 OCL MEMORY (01 BYTE; 

00077 1 OCL CHAR BYTE; 
00076 1 HEAD* 

00079 1 /♦PRINT HEA0IN3 OATA 10 CONSOLE •/ 

00080 1 00 I = TO LAST IHDGM 
oooai 1 OAT = HOG (I) ; 

00082 2 CALL CONJPRNT (OAT); 

00083 2 ENO; 

00035 1 /♦ LOOP TO GET DISK FILE NUMBER FOR HEX OUTPUT ♦/ 

00086 1 /♦ OR S TO RETURN TO THE INTEL MONITQ? */ 

00087 1 STATUS = CONJSTAT <K)5 

00088 1 WORK = STATUS ANO uA; 

00089 i IF WORK <> THEN GO TO LOOP? 

00090 1 ELSE 

00091 1 OAT = INPUT (0) ANO 07FH; 
n0092 1 OUTPUT (0) = OAT; 

.093 1 OAT = NOT OAT AND 07FHJ 

Q0'09<* i IF OAT = #S# THEN GO TO 3800H; 

00045 1 IF OAT < 031H THEN GO TO HEAD; /♦ FILE ONE ♦/ 

00096 1 IF OAT > 037H THEN GO TO HEAD! /* FILE SEVEN ♦/ 

00097 1 /"CALCULATIONS NECESSARY TO CREATE DISK ADDRESSES t/ 

00098 1 /"ANO BUFFER LOCATION */ 

00099 1 OAT = DAT ANO OFH; 

00100 1 TRACK = TRACK (DAT); 

00101 1 OATX, = DAT ♦ 7% 

00102 1 /"SYSTEM ON UNIT 0, DATA ON UNIT 1 */ 

00103 i oriv = i; 

0Q1Q<* 1 /*2b SECTORS PER TRACK ♦/ 

00105 1 S = TRACK ♦ 26; 

00106 i I = 0? 

ooio7 i count = o; 

0010 8 1 SECTR = 0; 

00109 i h = o; 

00110 1 SWITCH = 15; 

00111 1 BUFF = .MEMORY*, 

00113 1 /'STATUS LOOP FOR CONSUL ANO INTELLEC CRT PORT ♦/ 

0011** 1 STATUS = CONiSTAT (K); 

00115 1 WORK = STATUS AND CA; 

00116 1 IF WORK = TH[N GO TO CONSOLE tOA TA ? 

00117 1 STATUS = CRTSSTAT (K); 

none i work = siatus alio ja; 

1H9 i IF WORK - -HEN GO TO CRTJOATfl? 

00120 1 ELSE GO TO MAIN; 

00121 1 

00122 i GONSOLESDATAt 

00123 1 OAT = INPUT (0) AN!.) 07fH; 

0012^ 1 GEtiSTATUSt 7_50 

00125 1 STATUS = CrvTRSTAT (K): 



03126 
00127 
00126 
00129 
00130 
^0131 
-0132 
00133 
0313* 
00135 
00136 
03137 
00138 
00139 
001*0 
001*1 
001*2 
001*3 
031** 
001*5 
001*6 
001*7 
001*8 
001*9 
00150 
00151 
00152 
00153 
0015* 
00155 
00156 
1157 
-J158 
00159 
00160 
00161 
0016 2 
00163 
0016* 
00165 
00166 
00167 
00168 
00169 
00170 
00171 
00172 
00173 
0017* 
00175 
00176 
00177 
00178 
00179 
00180 
00181 
"M82 
,183 
0018* 
0013 5 
00186 
03187 
00188 
03189 



WORK = STATUS ANJ rORE: 

IF WORK <> THiN SO TO GCT4ST4TUS; 

ELSE 

OUTPUT (■«) = cat; 

GO TO main: 

cht$jata: 

DAT = CRTJIN (K) AND Q?Fh; 

consstatjs: 

STATUS = CONfcSTAT (K) ; 
WORK = STATUS ^NJ TUREJ 
IF WORK <> THfN CO TO CONS3TATUS: 
/♦LIST WILL LEFAULT TO THE CONSOLE ♦/ 

CALL LISTBP-NT (JAT)J 

/♦a string o^ *o asterisks prcc:de the hex FILF ♦/ 

IF OAT = #♦# THEN COUNT = C0U4T+1? 

ELSE IF :OUNT <> THEN COjMT - COUNT - 1? 

IF SWITCH = J 7H£N SO TO SAVE? 
/♦SWITCH WILL He SET WHEN 30 ASTERISKS IN A ROW HAVE ♦/ 
/♦3EEN RECEIVED, ALONG WITH THE COLON WHICH PRECEOES ♦/ 
/♦EACH OATA uINE ♦/ 

IF COUNT < 30 THEN GO TO MAIN? 

IF DAT <> #t# THEN 30 TO MAIN; 

ELSE SWITCH = 0; 



OF 

TH 

TH 

3 
• 
» 

#♦ 

TH 



SAVEt 

/♦A STRING 
/♦H COUNTS 
/♦ASSUMING 
/♦NOT HAVE 
3UF = OAT 
IF DAT = 
IF H = 3 
3UFF = 3JFF 
GO TO main; 
OSKWRT J 

BUFF = .MEM 
H = ; 

k = o; 

OROI 

/♦THIS SEARCH 

/♦ARE ON THE 

/♦ (00 NOT US 

/♦OSK WRITE I 

00 I = TO 

IF aUF(I) = 

ELSE I H <> 

IF 3UF(I) = 

eno; 
/♦3 is buffer 
B = buff; 

CALL WRTJSK 

/♦SECTR IS Sr 

SECTR = SEC 

IF K <> T 
ELSE BUFF = 
GO TO ord; 
STZl 

SECTR = SEC 

/♦SECTOR COUN 

/♦DATX 13 ,^_u 

S = DATXJ 

3 = .sectr; 



*0 ASTERISKS FOLLOW THE HEX FILE ♦/ 

c ASTERISKS THAT ARE TOG-THER. I AM ♦/ 

AT THE DATA (HEX INSTRUCTIONS) WILL ♦/ 

ASTLRISK VALUES IN A ROW. ♦/ 

# THEN H-= H ♦ i; 
EN GO TO OSKWRT; 

* i; 



ory; 



IS FOR THE STRING OF 10 ZE?OS THAT ♦/ 



LST OmTA LINE OF THE HEX FILE. 
E AUTO START FOR THIS FUNCTION.) 
S A 128 BYTE CHARACTER BLOCK. 

127; 

#0# THEN H = H «- i; 

THEN H = H - i; 

CR THEN IF H > 7 THEN K = i; 

location for disk routine ♦/ 

c.driv) ; 
ctor number for oisk routine •/ 
TR ♦ i; 
HEN GO TO STZ; 

3UFF 4- 128; 



♦/ 
♦/ 
♦/ 



tr ♦ i; 

T REPRESENTS SECTOR ♦ 1 TO 
TO-< NUM-Jt'R. FOR SYSTF.M JISK 



SYSTEM ♦/ 
FILE CONTROL 



♦/ 
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00190 
00191 
00192 
00193 
0019*4 
**^ PROGRAM 



CALL HRTOSK C.ORIVi; 

/♦allows for more than 
go to booh; 

EOF 
ERRORS 



ONE FILE TRANSMISSION ♦/ 



NO PROGRAM ERRORS 
$060 PLM2 VERS 2.0 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM **. no. 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 8008 [53 8080 Q 4040 



(use additional sheets if necessary) 



A Generalized Stepper Motor Driver Program 

Operations performed by the program are: using entry var- 
iables of number of steps, clockwise or counterclockwise 
direction and speed of steps - several programs are illustra- 
ted for moving a stepper motor in either direction then stop- 
ping, moving N steps forward then return N steps, moving 
motor continuously in either direction until interrupted by a 
TTY KYBD entry, also programs using an led-photodetector 
sensor for absolute motor position. 

This program was run on an Intellec, 8 MOD80. TTY on port 
& 1; motor output on port 3, bits 0-3; sensor input on 
port 1, bit 7. 



Existing firmware on Intellec 8, MOD80 - particularly sub- 
routines "CO',' ,"CRLF" , and "CSTS" 



Initialize: 



"M0T1" = after pwr on - this is a RAM location 
used to keep track of motor position. More 
stepper motors would require additional locations 
"STEPS" = number of steps required in double BCD 
digits - 00 to 99. 

"FREQ" = number of 0.5 ms. delays between steps 
in double BCD digits - 00 to 99. 



A 2-bit binary counter is incremented or decremented and 
stored to keep track of motor position. Prior to outputing 
a new motor position (a step) to a motor, this binary value 
is transformed (thru a table) to a 4-bit value that is 
applied (thru transistor drivers) to a "SLO-SYN" type stepper 
motor . 



Registers Modified: 
All 



RAM Required: 

Minimum one to three 
Maximum = progr. size 



ROM Required: 

About 90 loc. for a useful 



progr 



Maximum Subroutine Nesting Level: 

3 



Assembler/Compiler Used: 

8080 MACRO assembler, ver. 2.0 



Programmer: 



Floyd L. Nordin 



ompanv Nordin Enterprises 

Box 1277 " Cupertino, Calif. 
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MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM **. no. 022 



D 4004 D 4040 S 8008 D 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(um additional sheets if necessary) 



IBM Selectric output program 



Allows IBM Selectric model 731 to be used as output 
device. 



MCS-8 system, IBM model 731, appropriate drivers 



MCS-8 monitor 



Entered with character in register B 



Character printed by Selectric. 

Input character returned in registers A and B. 



Registers Modified: 

A,B,H,&L 



RAM Required: 

none 



Assembler/Compiler Used: 

8008 MacroAssembler Ver 2.0 



ROM Required: 

256 Bytes 



Maximum Subroutine Nesting Level: 
2 



Programmer: 

J. Harrison /W. gasket t 



Company: 

Northeast Electronics 



Address: 

Airport Road, Concord, NH 03301 



9*0348 
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i REF. NO. D22 

i PROGRAM NAME IBM SELECTRIC OUTPUT PROGRAM 



.ibELECTRIC OUTPUT CONVERSION 



3100 




ORG 


3100H 


3100 3E80 


START : 


MVI 


A, 80H 


3102 BO 




ORA 


B 


3103 6F 




MOV 


L, A 


3104 2631 




MVI 


H, STAR 


3106' 0620 


WAIT: 


MVI 


B, 20H 


3108 DB02 


WAIT2: 


IN 


2 


310A E630 




AN I 


30H 


310C C20831 




JNZ 


WAIT2 


310F 05 




DCR 


B 


3110 C20831 




JNZ 


WAIT2 


3113 DB02 




IN 


■-, 


3115 E640 




AN I 


40H 


117 C26431 




JNZ 


ENDOL 


j:11A 7D 




MOV 


A, L 


311B FEAO 




CPI 


OAOH 


311D DA5931 




JC 


CONTRL 


3120 CA4031 




JZ 


SPACE 


3123 DB02 




IN 


-. 


3125 AE 




XRA 


M 


3:126 E680 




AN I 


80H 


3128 C24531 




JNZ 


CHANGE 


312B 7E 




MOV 


A, M 


312C B7 




ORA 


A 


j=:12D CA3B31 




JZ 


RESTOR 


j:130 E67F 




AN I 


7FH 


3132 D30A 


PRINT: 


OUT 


10 


3134 CD7331 




CALL 


TIME 


3137 3E0O 




MVI 


A, 


3139 D30A 




OUT 


10 


313B 3E7F 


RESTOR : 


MVI 


A, 7FH 


313D A5 




ANA 


L 


313E 47 




MOV 


B, A 


313F C9 




RET 




3140 3E80 


SPACE : 


MVI 


A, 80H 


3142 C33231 




JMP 


PRINT 


"145 DB02 


CHANGE : 


IN 


•-. 


^.47 E680 




AN I 


80H 


3149 C25131 




JNZ 


SHIFT 


314C 3E01 




MVI 


A, 01H 



.= SET BIT 8 

; USE FOR TABLE ADDR. 

100H 

.; ROUTINE TO WAIT FOR 
J SELECTRIC TO BE IDLE 



CHECK FOR RIGHT MARGIN 



CHECK IF CONTROL FUNC. 
CHECK IF SPACE 

GET SELECTRIC: CODE 
TEST FOR SHIFT CHENGE 

GET SELECTRIC CODE 
TEST FOR VALID CHAR 



PRINT CHARACTER 
WAIT FOR RESPONSE 

RESET OUTPUT 

MOVE ASCII CODE BACK 

INTO REGISTER B 



PRINT SPACE 



CHANGE SHIFT 
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314E 


C35331 




JMP 


CSEND 


3151 


3E02 


SHIFT. 


MVI 


A, 02H 


3153 


CD6931 


CSEND : 


CALL 


SEND 


3156 


C30631 




-JMP 


WAIT 


3159 


7E 


CONTRL : 


MOV 


A, M 


315A 


B7 




ORA 


A 


315B 


CA3B31 




JZ 


RESTOR 


315E 


CD6931 




CALL 


SEND 


3161 


C33B31 




-JMP 


RESTOR 


3164 


3E04 


ENDOL : 


MVI 


A, 04H 


3166 


C35331 




JMP 


CSEND 


3169 


D30B 


SEND : 


OUT 


11 


316B 


CD7331 




CALL 


TIME 


316E 


3E00 




MVI 


A, 


3170 


D30B 




OUT 


11 


3172 


C9 




RET 




3173 


0620 


TIME: 


MV I 


B, 20H 


3175 


DB02 


TIME2: 


IN 


•-> 


3177 


E630 




AN I 


30H 


3179 


CA7531 




-JZ 


TIME2 


317C 


05 




DCR 


B 


L7D 


C8 




RZ 




317E 


C37531 




-JMP 


TIME2 



SEND A CONTROL FUNC. 

GET A CONTROL CODE 
TEST IF VALID 



START NEW LINE 

SEND CONTROL 
WAIT FOR RESPONSE 

RESET OUTPUT 

ROUTINE TO WAIT 
FOR RESPONSE 



3180 



i:180 


0000 


3182 


0000 


3184 


£1000 


3186 


0000 


3188 


2020 


318A 


0408 


318C 


0000 


318E 


0102 


3190 


0040 


3192 


8000 


3194 


0000 


3196 


0000 


3198 


0000 


319A 


0000 


319C 


0000 


319E 


0000 


31A0 


00FF 


31A2 


95BE 


31A4 


F9F5 


31A6 


BD15 


~1A8 


F0B1 


xAA 


FCC 6 


31AC 


4CC0 


31AE 


1649 



.: CODE CONVESION TABLE 
ORG 3180H 



DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 



00000H 
00000H 
00000H 
00000H 
02020H 

008O4H 

00000H 

002O1H 

04000H 
00080H 
00000H 
00000H 
00000H 
00000H 
00000H 
00000H 
0FF00H 

0BE95H 
0F5F9H 
015BDH 
0B1FOH 
0C6FCH 
0C04CH 
04916H 
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31B0 


317F 


-SlE'ii! 


763E 


31B4 


7975 


31B6 


343D 


31B8 


7C70 


31BA 


8D0D 


31BC 


0046 


31BE 


00C9 


31C0 


F69C 


31C2 


A0AC 


31C4 


EDA5 


31C6 


8E8F 


31C8 


E1D4 


31CA 


87E4 


31CC 


A09F 


31CE 


A699 


31D0 


C584 


31D2 


DDD1 


31D4 


E7EE 


31D6 


DE90 


31D8 


AF81 


IDA 


B700 


S±DC 


0000 


31DE 


0000 


31E0 


001C 


31E2 


202C 


31E4 


6D25 


31E6 


0E0F 


31E8 


6154 


31EA 


0764 


31EC 


291F 


31EE 


2619 


31F0 


4504 


31F2 


5D51 


31F4 


676E 


31F6 


5E10 


31F8 


2F01 


31FA 


3700 


31FC 


0000 


31FE 


0000 


0000 





DW 


07F31H 


DW 


03E76H 


DW 


07579H 


DW 


03D34H 


DW 


0707CH 


DW 


00D8DH 


DW 


04600H 


DW 


0C900H 


DW 


09CF6H 


DW 


0ACA0H 


DW 


0A5EDH 


DW 


08F8EH 


DW 


0D4E1H 


DW 


0E487H 


DW 


09FA0H 


DW 


099A6H 


DW 


084C5H 


DW 


0D1DDH 


DW 


0EEE7H 


DW 


090DEH 


DW 


081AFH 


DW 


000B7H 


DW 


00000H 


DW 


00000H 


DW 


01C00H 


DW 


02C20H 


DW 


0256DH 


DW 


00F0EH 


DW 


05461H 


DW 


06407H 


DW 


01F29H 


DW 


01926H 


DW 


00445H 


DW 


0515DH 


DW 


06E67H 


DW 


0105EH 


DW 


0012FH 


DW 


0003 7H 


DW 


00000H 


DW 


00000H 


END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM Ref. no 



D23 



D 4004 D 4040 D 8008 09 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



Binary Search 

Program searches a table of up to 128 entries. Each entry is 
composed of a 1 byte argument (Search Key) and an associated 
result. The result field may be up to 255 bytes for each 
argument. Result fields must all be the same length. Table 
format on attached sheet. 



80B0 with adequate memory for program and table. 



None 



Search parameter stored in location K. 

Prestructed entry table (Note: assembly listing shown for 

128 entries and a result field of 3 bytes). 



Address of 1st byte of result field in HL if a match is found. 
Also, carry tit -H9 if success and carry bit «-l if argument not 
found in table. 



Registers Modified: 

All except sp 


Assembler/Compiler Used: 

8080 Macro Version 2.0 


RAM Required: 

79 bytes + table 


Programmer: 
H. Corbin 


ROM Required: 


Company: 


Maximum Subroutine Nesting Level: 



Address: 

11704 Ibsen Dr. 
Bnr.lnHlle. M.D. 20852 



98-0348 
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BINARY SEARCH 
ENTRY TABLE FORMAT 



TABLE 



ARGUMENT TABLE 



A l 


smallest 


A 2 




A 3 




A n 


largest 



(must be in ascending order) 



up to 128 arguments 



RESULT 



RESULT TABLE 



byte 1 of R ] J byte 2 of R ] 



byte 1 of R 2 ,' byte 2 of R £ 



byte 3 of R 



byte 3 of R, 



R 1 (associated with A,) 



up to 128 results 

R length variable and specified by RSULG (format above shown for RSULG = 3) All R's 
must be the same length. 
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PRGE 1 



0064 




0064 


0600 


0066 


0E8O 


0068 


\ o 


0069 


81 


0O6R 


OF 


006B 


C67F 


006D 


5F 


0O6E 


79 


0O6F 


B8 


0070 


DRACO© 


0073 


21B00O 


0076 


1600 


0078 


19 


p-<79 


3RB2O0 


>C 


BE 


007D 


CR8D00 


0080 


DR8800 


0083 


1C 


0084 


43 


0085 


C36800 


0088 


ID 


0089 


4B 


008R 


C36800 


008D 


0600 


008F 


1609 


0091 


4B 


0092 


79 


0093 


IF 


0094 


4F 


0095 


15 


0096 


CRR300 


0099 


70 


009R 


D29E00 


009D 


'->—■ 


009E 


IF 


009F 


47 


00R0 


C 39200 


00 R 3 


21RE00 


00 A6 


09 


( L 1 ? 

0tiHy 


3F 



REF. NO. D23 

PROGRRM TITLE "BINARV SEARCH" 



MID 



LESS 



MATCH 



MUL1 



MUL2 



ADDR 



OO A 9 C3ADO0 



ORG 


100 


MVI 


B, 


MVI 


C, NOENT 


MOV 


A, B 


ADD 


c 


RRC 




AD I 


07FH 


MOV 


E, A 


MOV 


A, C 


CMP 


B 


JC 


NONE 


LXI 


H, TABAD 


MVI 


D, O 


DAD 


D 


LDA 


K 


CMP 


M 


JZ 


MATCH 


JC 


LESS 


INR 


E 


MOV 


B, E 


JMP 


MID 


DCR 


E 


MOV 


C, E 


JMP 


MID 


MVI 


B, 


MVI 


D, 9 


MOV 


C, RSULG 


MOV 


A, C 


RAR 




MOV 


C, A 


DCR 


D 


JZ 


ADDR 


MOV 


A, B 


JNC 


MUL2 


ADD 


E 


RAR 




MOV 


B, A 


.JMP 


MUL1 


LXI 


H, RSUAD 


DAD 


B 


STC 




CMC 




■JMP 


DONE 



.: INITIALIZE LONER PTR TO O 

; INITIALIZE UPPER PTR TO N 

.; FIND MID PTR 

.; SUM UPPER & LOWER PTRS 

.; DIVIDE BV 2 

.; CLEAR SIGN BIT 

.; SAVE MID PTR 

.; SET UP FOR FAILURE TEST 

j LOWER PTR . GT. UPPER PTR 
GET BASE OF TABLE 
CLEAR MSB 

COMPUTE MID PTR ADDRESS 
GET SEARCH PARAMETER VALUE 
COMPARE K-K<MID> 
ARGUMENT FOUND 

.; K. GT. K-::MID>, INC MID PTR 
.; SET NEW LOWER PTR 

.; K. LT. K<MID>, DEC MID PTR 
.; SET NEW UPPER PTR 

i COMPUTE RESULT ADDRESS 

; BIT COUNTER 

; GET RESULT LENGTH 

.; MULTIPLIER 

; LOW-ORDER BVTE OF RESULT 
jFINI 



.; MULTIPLICAND ADDED IF BIT :1 
i CARRY :9 SHIFT MSB 



.; BASE ADDR OF RESULT 

.: COMPUTE MATCH RESULT ADDR 

.; SUCCESS, C : 
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60AC 


~;"? 


NONE : 


STC 




00AD 


7€ 


DONE : 


HLT 




00AE 


3:3:81 


RSUAD : 


DW 


RSULT 


00B0 


B388 


TABAD : 


DN 


TABLE 


6886 




NOENT 


EQU 


128 


8883: 




RSULQ 


EQU 


jj; 


88B2 


88 


K: 


DB 


8 


88B3: 




TABLE : 


DS 


128 


6133: 
6666 




RSULT : 


DS 
END 


384 



FAILURE, C:l 

RESULT BASE ADDRESS 
ARGUMENT BASE ADDRESS 
NO TABLE' ENTRIES 
LENGTH OF RESULT ENTRV 
SEARCH PARAMETER 
ARGUMENTS 
RESULTS 
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MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM a* .no. m 



D 4004 D 4040 □ 8008 8080 □ 3000 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



TIMIT 

Interrupt driven, real time clock routine. Provides time 
and calendar information. 



100 Hz time base oscillator to drive interrupt circuitry of 
CPU. Vectored interrupt circuitry recommended. 



Routine to initialize TIMIT's counters (symbolic location 
TIMER) with current time, day and year. 



Time: hours, miniutes, seconds, hundreths of seconds 
Calendar: day of the year and year. 



Maintains time in 24 hour format to hundreths of a second; 
also, day of the year, and year. All values are stored in 
BCD as 8 bytes starting at location TIMER. 



(See additional sheets for detailed description) 



Registers Modified: 

A,B,C,D,E 


Assembler/Compiler Used: 

MAC80, version 2.2 


RAM Required: 

105 bytes 


Programmer: 

Steve Becquer 


ROM Required: 


Company: 

U.C. Berkeley (student) 


Maximum Subroutine Nesting Level: 
4 


Address: ec /»i • r j. 

365 CI ipper St. 

San Francisco, Ca . 94114 
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TIM IT * INTERRUPT DRIVEN, REAL TIME CLOCK 

•TIMIT' UTILIZES INTERRUPT CIRCUITRY TO MAINTAIN ACCURATE 
COUNTING OF TIME OF DAY (TO .01 SEC), DAY OF THE YEAR, AND 
YEAR, FOR 8080 BASED SYSTEMS. THIS ROUTINE CAN BE USED FOR 
INTERVAL COUNTING, ELAPSED TIME MEASUREMENT, SAMPLING AT A 
FIXED RATE (FOR EXAMPLE, EVERY .1 SEC, EVERY HOUR, ETC), AS 
WELL AS FOR PROVIDING TIME AND DATE INFORMATION (FOR HEADINGS 
ON LISTINGS, REPORTS, ETC). 

A .01 SEC TIME BASE FOR 'TIMIT' MUST BE PROVIDED BY THE 
USER THROUGH HARDWARE. THIS IS ESTABLISHED BY DIVIDING SYSTEM 
CLOCK 02 TO 100 HZ, OR WITH AN EXTERNAL OSCILLATOR, TO DRIVE 
THE INTERRUPT REQUEST INPUT OF THE CPU (IMM 8-83, ETC). WITH 
EACH CYCLE OF THE TIME BASE OSCILLATOR, THE 8080 RECOGNIZES 
THE INTERRUPT REQUEST, ISSUES AN INTERRUPT ACKNOWLEDGE SIGNAL, 
AND ENTERS AN INTERRUPT MACHINE CYCLE. USER PROVIDED LOGIC 
THEN GATES A • RST ' INSTRUCTION ONTO THE INPUT BUS, CAUSING 
A SUBROUTINE JUMP INTO 'TIMIT' (SEE INTEL INTELLECT 8/MOD 80 
HARDWARE REFERENCE MANUAL FOR DETAILED DESCRIPTION OF INTERRUPT 
OPERATION). WHEN THUS CALLED, 'TIMIT' WILL INCREMENT ITS TIME 
COUNTERS BY 1 (.01 SEC), AND RETURN EXECUTION TO WHATEVER 
ROUTINE WAS EXECUTING AT THE TIME OF THE INTERRUPT. THIS 
SEQUENCE OF EVENTS WILL THEN REPEAT EVERY .01 SECONDS. FOR 
MAXIMUM SYSTEM FLEXIBILITY, VECTORED INTERRUPT CIRCUITRY 
IS RECOMMENDED. 

THE USER MUST INITIALIZE THE VARIOUS COUNTERS WITH THE 
CURRENT TIME, DAY, ETC AT INITIAL STARTUP OF THE SYSTEM. 
ONCE INITIALIZED, COUNTING IS MAINTAINED BY THE TIME BASE 
OSCILLATOR, AS LONG AS THE PROCESSOR CAN RESPOND TO ANY 
INTERRUPT REQUESTS. THE USER MUST BE WARY THAT DURING CERTAIN 
STATES (HOLD, WAIT, ETC), INTERRUPT REQUESTS ARE NOT SERVICED 
AND IF THESE LAST FOR A PERIOD OF MORE THAN .01 SEC, 'TIMIT' 
WILL LOOSE COUNTS. 

SYMBOLIC LOCATION 'TIMER' (SEE PROGRAM LISTING) IS THE 
COMMUNICATION AREA BETWEEN 'TIMIT' AND THE USER. 'TIMER* IS 
INITIALIZED BY THE USER, AND UPDATED BY 'TIMIT', FOR READ OUT 
BY THE USER. ALL TIME COUNTS ARE STORED IN BCD, THEREFORE, 
THE USER MUST ASSURE THAT 'TIMER* IS LOADED WITH VALID BCD 
VALUES WHICH DO NOT SURPASS THE RANGE OF THE COUNTERS, FOR 
PROPER OPERATION. THE 8 BYTE FIELD, 'TIMER', IS PARTITIONED 
AS FOLLOWS: 

BYTE CONTENTS RANGE 

HUNDRETHS OF A SECOND 0-99 

1 SECONDS 0-59 

2 MINUTES 0-59 

3 HOURS 0-23 

4 LOW ORDER TWO DIGITS OF DAY 1-99 OR 0-66 * 

5 HIGH ORDER DIGIT OF DAY 0-3 

6 LOW ORDER TWO DIGITS OF YEAR 0-99 

7 HIGH ORDER DIGITS OF YEAR 0-99 ** 

* RANGE DEPENDS ON VALUE OF BYTE 5 AND WHETHER YEAR IS LEAP 7 " 67 
** NOT USED BY 'TIMIT' 



TIM IT * INTERRUPT DRIVEN, REAL TIME CLOCK 

•TIMIT* STORES AND RESTORES STATUS, ACCUMULATOR, AND ALL 
REGISTERS TO BE MODIFIED, TO ALLOW CONTINUITY OF THE INTERRUPTED 
PROGRAM. THE USER MUST PROVIDE 4 LEVELS OF STACK STORAGE BY 
INITIALIZING THE STACK POINTER (LXI SP) BEFORE STARTUP OF 
•TIMIT* . 
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PRGE 1 



; REF. NO. D24 

.; PROGRAM TITLE TIM IT 



0008 CI 9001 
01.90 



0190 


F5 


0191 


C5 


0192 


D5 


0192 


11F201 


0196 


0600 


98 


0E00 


►_.j.9R 


CDE101 


019D 


066©' 


019F 


CDE101 


01R2 


CDE101 


01A5 


0624 


01R7 


CDE101 


01RR 


12 


01RB 


1R 


01RC 


FE03 


OIRE 


0600 


01B0 


C2CC01 



01B3 13 

01B4 1R 

01B5 0666 

01B7 OF 
01B8 DRC901 
01BB F6F0 
01BD FEF9 
01BF DRC401 
&* C2 D603 

C4 OF 
01C5 DRC901 



TIMIT 



ORG 
JMP 
ORG 



TIMIT 

400 



DIV4 



PUSH 


PSN 


PUSH 


B 


PUSH 


D 


LXI 


D, TIMER 


MVI 


B, 


MVI 


C, 


CALL 


DIVIT 


MV I 


B, 60H 


CALL 


DIVIT 


CALL 


DIVIT 


MVI 


B, 24H 


CALL 


DIVIT 


I NX 


D 


LDAX 


D 


CPI 


~- 


MVI 


B, 


JNZ 


•JULDV 


I NX 


D 


LDAX 


D 


MVI 


B, 66H 


RRC 




JC 


NLEAP 


OR I 


OFOH 


CPI 


0F9H 


JC 


DIV4 


SUI 


— • 


RRC 




JC 


NLEAP 



; ENTER VIA AND INTERRUPT 
; AND A RST INSTRUCTION. 
JUMP INTO TIMIT FROM 
APPROPRIATE RST VECTOR. 

AN INTERRUPT DRIVEN, 

REAL TIME CLOCK. 

BV STEVE BECQUER, 

VERS 1. 76008. 

SAVE STATUS AND REGISTERS 

OF INTERRUPTED ROUTINE. 

GET ADDRESS OF TIME COUNTERS. 

SET MODULO TO 100. 

SET STARTING COUNT TO 0. 

UPDATE 10OTHS OF SEC COUNTER. 

SET MODULO TO 60. 

UPDATE SECONDS COUNTER. 

UPDATE MINUTES COUNTER. 

SET MODULO TO 24. 

UPDATE HOURS COUNTER. 

POINT TO HIGH ORDER DIGIT 

OF DAV COUNT. 

LOAD COUNT. 

CHECK IF DAV COUNT IS OVER 300. 

SET MODULO TO 100. 

IF LESS THAN 300, 

RESET AT COUNT 100. 

POINT TO LOW ORDER DIGITS 

OF VEAR COUNT. 

CHECK IF VEAR IS LEAP. 

VEAR IS LEAP IF DIVISIBLE BV 4. 

SET MODULO TO 66.. 

IF VEAR IS NOT LEAP. 

DIVIDE BV 2. 

CARRV INDICATES NOT DIVISIBLE. 

IF LEAST SIGNIFICANT 4 BITS, 

ARE GREATER THAN 9, 

DECIMAL ADJUST. 

DIVIDE BV 2, AGAIN. 

IF CARRV, NOT DIVISIBLE BV 4, 

AND VEAR IS NOT LEAP. 
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©I C S 


04 


01C9 


0EG1 


01CB 


IB 


6 ICC 


IB 


81CD 


CDE181 


01 DM 


0684 


01D2 


0E08 


81D4 


CDE101 


81D7 


86 8 


01.D9 


CDE181 


01DC 


Dl 


01DD 


CI 


©IDE 


Fl 


01DF 


FB 


81E0 


C9 


81.E1 


1R 


01E2 


ji- 1 


01E": 


3F 


8 IE 4 


13 C 


01E5 


'-■ '7* 


En 


BS 



NLERP 



JULDV 



EXIT 



DIVIT 



8: J .h.7 

81ER 79 

81.EB 12 

01.EC IS 

81ED C8 



;EB01 



SAVE 



01EE 
81EF 



Dl 



;:DC01 



T I MER 



8 IF 2 00 
81F3 88 
81F4 88 
8 IF 5 88 
81F6 88 

81F7 88 

81F8 88 

81F9 88 

00 



I NR 


B 


MV I 


C, 1 


DCX 


D 


DCX 


D 


CALL 


DIVIT 


MV I 


B, 4 


MV I 


C.. 8 


CALL 


DIVIT 


MV I 


B, 8 


CRLL 


DIVIT 


POP 


D 


POP 


B 


POP 


PSW 


EI 




RET 




LDRX 


D 


STC 




CMC 




I NR 


R 


DRR 




CMP 


B 



JNZ 



SRVE 



MOV 


fl.. C 


STRX 


D 


I NX 


D 


RZ 




POP 


D 


JMP 


EX" 



DB 


8 


DB 


8 


DB 


8 


DB 


8 


DB 


8 


DB 





DB 





DB 





END 





SET MODULO TO 67 FOR LERP VEflR. 

SET STARTING COUNT TO 1. 

POINT BACK. TO 

TO LOW ORDER DIGITS OF DAY. 

UPDATE LOW ORDER DIGITS OF DAY. 

SET MODULO TO 4. 

SET STARTING COUNT TO 8. 

UPDATE HIGH ORDER DIGIT OF DAY. 

SET MODULO TO 100. 

UPDATE YEAR COUNT. 

RESTORE REGISTERS. 

RESTORE STATUS. 

ENABLE FURTHER INTERRUPTS. 

RETURN TO INTERRUPTED ROUTINE. 

VARIABLE MODULO COUNTER. 

LOAD COUNTER TO BE INCREMENTED. 

CLEAR CARRY. 

INCREMENT COUNT. 

DECIMAL ADJUST. 

TEST IF RESET COUNT 

HAS BEEN REACHED. 

IF NOT REACHED, 

SRVE COUNT AND EXIT. 

RESET TO STARTING COUNT. 

RETURN COUNT TO MEMORY. 

POINT TO NEXT COUNTER. 

IF RESET OCCUR ED, 

GO UPDATE NEXT COUNTER. 

IF NOT, ISSUE A DUMMY RETURN. 

EXIT DIVIT. 

HERE TIME IS STORED, IN BCD, 

AS FOLLOWS : 



BYTE 


1 



4 



CONTAINS 
HUNDRETHS OF A SECOND 
SECONDS 
MINUTES 
HOURS 
LOW ORDER TWO DIGITS 

OF DAY 
HIGH ORDER DIGIT 

OF DAY 
LOW ORDER TWO DIGITS 

OF YEAR 
HIGH ORDER TWO DIGITS 

OF YEAR 



7-70 



iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



D25 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 □ 8008 H 8080 □ 3000 



(use additional sheets if necessary) 



Absorbance Calculation 

Calculate absorbances from % transmission data. 

Transmission data (I) is in fixed point format (16 bits 

maximum) 

Absorbance is fixed point times 10^ 



None 



Multiply 16 X 16 to give 16 

Divide 16 X 16 to give 16 fraction (decimal at left) 

Shift right 

PRZER contains I G (reference intensity) 
PRDAT contains I (sample intensity) 

(where I/I = % transmission) 



Registers D & E holds absorbance X10 4 
in fixed point format 









Registers Modified: 

all 


Assembler/Compiler Used: 

Intellec 8 MAC80 


RAM Required: 

8 


Programmer: 

W. B. Telfair 


ROM Required: 

192 


Company: 

Wilks Scientific Corp. 


Maximum Subroutine Nesting Level: 
3 


Address: 140 Water street 

Box 449, S. Norwalk, Conn. 06856 
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; REF. NO. D25 

} PROGRAM TITLE ABSORB ANCE CALCULATION 



0180 
0100 
0102 
0105 
0107 
0109 
010A 
010C 
010D 
010F 

0137 

015F 
0162 
0163 
166 
fil68 
0169 
016A 
016B 
016E 
016F 

0170 

0171 
0172 
0173 
0174 
0175 
0176 
0179 
017A 
01 7B 
01 7C 
01 7D 
017E 
01 7F 

01 SO 

0183 
01S4 
01S5 
"188 
x8B 
018E 
018F 



ORG 108H 
DEN: DS 2 
NUM: DS 3 
PRZER: DS 2 
PRDAT: DS 2 
PRONE: DS 1 
PRRES: DS 2 
NMB: DS 1 
ZERO: DS 2 ; 
DATA: DS 40 
ABSBC: DS 40 



10 

; II, 12, 13, ETC. 
.; Al, A2, A3, ETC. 



LHLD PRZER ; ABSORBANCE CALCULATION: A = LOGUO/I) 
= 2+LOG < E > + <. X+ X++3/3+ X+ : + : 5/5+. . . > 
X = < 1 0- 1 > ,•••' <; 1 0+ 1 > 



2AO501 ABSOR 

EB XCHG .; 

2AO701 LHLD PRDAT 

0600 MVI B, 

7C LSHFT : MOV A, H ; MAKE I0>I>I0/2 

17 RAL 

92 SUB D 

F27901 JP LOG IT 

AF XRA A 

7D MOV A, L 

17 RAL 

6F MOV L, A 

7C MOV A, H 

17 RAL 

67 MOV H, A 

04 INR B 

C36801 JMP LSHFT 

C5 LOG IT: PUSH B 

7B MOV A, E 

95 SUB L 

4F MOV C, A 

7A MOV A, D 

9C SBB H 

19 DAD D 

22O001 SHLD DEN 

67 MOV H, A 

69 MOV L, C 

220201 SHLD NUM 

CD3302 CALL DIV .; X 

CD6C02 CALL DAVE 

EB XCHG 

22OA01 SHLD PRRES 
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0192 


22071-31 


SHLD PRDAT 






0195 


220201 


SHLD NUM 






0198 


220001 


SHLD DEN 






019B 


CD7D02 


CALL MULT .; 


|x; : +: + 2 




019E 


CDBR02 


CALL MAVE 






01A1 


EB 


XCHQ 






01A2 


220501 


SHLD PRZER 






01A5 


3E10 


MV I A, lOH 






01R7 


320901 


STA PRONE 






01RR 


2R0701 


I TERA : LHLD 


PRDAT 




01RD 


220201 


SHLD NUM 






01B0 


2R0501 


LHLD PRZER 






01B3 


220001 


SHLD DEN 






01B6 


CD7D02 


CALL MULT .; 


X : + : +<2N+l> 




01B9 


CDBA02 


CALL MAVE 






01BC 


EB 


XCHQ 






01BD 


3E00 


MVI A, 






01BF 


BC 


CMP H 






01 CO 


C2C701 


JNZ FAN 






01C3 


BD 


CMP L 






01C4 


CRF701 


•JZ DON ; DONE ITERATIC 


iN IF ZERO 


LC7 


220701 


FAN: SHLD PRDAT 




tUCA 


220201 


SHLD NUM 






01CD 


3A0901 


LDA PRONE 






01D0 


C620 


AD I 20H 






01D2 


320901 


STA PRONE 






01D5 


67 


MOV H, A 






01D6 


2E00 


MVI L, 






01D8 


220001 


SHLD DEN 






01DB 


CD 3 302 


CALL DIV .; : 


<■■+••*< 2 N+l >.•••'• 


.2N+1> 


01DE 


CD6C02 


CALL DAVE 






01E1 


0604 


MVI B, 4 






01E3 


CD2002 


CALL SHFTR . 


READJUST 


DECIMAL 


01E6 


2R0R01 


LHLD PRRES 






01E9 


19 


DAD D 






01ER 


220R01 


SHLD PRRES 






01ED 


3E00 


MVI A, O 






01EF 


BR 


CMP D 






01F0 


C2RR01 


•JNZ I TERA 






01F3 


BB 


CMP E 






01F4 


C2RR01 


JNZ I TERA .: 


REPEAT IF 


X++'::2N+1> 


01F7 


2R0A01 


DON: LHLD PRRES 




01FA 


EB 


XCHQ 






01FB 


0602 


MVI B, 2 






01FD 


CD2002 


CALL SHFTR 


: READJUST 


DECIMAL 


0200 


EB 


XCHQ 






-•":01 


112E16 


LXI D, 162EH 


.; LN 2 




334 


CI 


POP B 






0205 


AF 


XRA A 






0206 


B8 


CMP B 
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0207 


CR0F02 


flDDLP: JZ RESUL 


020fl 


19 


DflD D 


020B 


05 


DCR B 


020C 


C30702 


JMP RDDLP 


020F 


220201 


RESUL: SHLD NUM 


0212 


21B887 


LXI H, 87B8H .; 2+LGG 


0215 


220001 


SHLD DEN 


0218 


CD7D02 


CRLL MULT 


021B 


CDBR02 


CRLL MRVE 


021E 


IB 


DCX D 


021F 


C9 


RET 


0220 


flF 


SHFTR: XRfl R 


0221 


7fl 


MOV R, D 


©ci^ei 


IF 


RRR 


0223 


57 


MOV D, R 


0224 


7B 


MOV R, E 


0225 


IF 


RRR 


0k'26 


5F 


MOV E, R 


0227 


05 


DCR B 


0228 


C22002 


JNZ SHFTR 


22B 


CE00 


flCI 


022D 


5F 


MOV E, R 


022E 


3E00 


MVI R, O 


0230 


8fl 


ADC D 


0231 


57 


MOV D, R 


0232 


C9 


RET 


0233 


1610 


DIV: MVI D, 16 ; 16. 


0235 


2A0201 


LHLD NUM 


0238 


44 


MOV B, H 


0239 


4D 


MOV C, L 


023A 


2R0001 


LHLD DEN 


023D 


D5 


PUSH D 


023E 


110000 


LXI D, O 


0241 


7C 


MOV R, H 


0242 


2F 


CMfl 


0243 


67 


MOV H, R 


0244 


70 


MOV R, L 


0245 


2F 


CMfl 


0246 


6F 


MOV L, R 


0247 


E5 


DODIV: PUSH H 


0248 


23 


I NX H 


0249 


09 


DRD B 


024R 


D25602 


JNC NOCflR 


024D 


44 


MOV B, H 


~?4E 


4D 


MOV C, L 


24F 


EB 


XCHG 


0250 


29 


DRD H 


0251 


23 


I NX H 



16/16=>FRflCTI0N 1. 15 
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PRGE 4 



0252 EB 


XCHG 


0253 C35902 


JMP GO 


0256 EB 


NOCflR : XCHQ 


0257 29 


DRD H 


0258 EB 


XCHQ 


0259 El 


GO: POP H 


025R 7C 


MOV R, H 


025B 37 


STC 


025C IF 


RRR 


025D 67 


MOV H, R 


025E 7D 


MOV R, L 


025F IF 


RRR 


0260 6F 


MOV L, R 


0261 E3 


XTHL 


0262 25 


DCR H 


0263 CR6R02 


JZ OUTDIV 


0266 E3 


XTHL 


0267 C34702 


JMP DODIV 


026R CI 


OUTDIV: POP B 


026B C9 


RET 


26C 3E00 


DRVE: MVI R, 8 ; RE 


026E BR 


CMP D 


026F C27402 


JNZ DEC2 


0272 BB 


CMP E 


0273 C8 


RZ 


0274 IB 


DEC2: DCX D 


0275 RF 


XRR R 


0276 7B 


MOV R, E 


0277 17 


RRL 


0278 5F 


MOV E, R 


0279 7R 


MOV R, D 


027R 17 


RRL 


027B 57 


MOV D, R 


027C C9 


RET 


027D 210301 


MULT: LXI H, NUM+1 


0280 46 


MOV B, M 


0281 3600 


MVI M, 


0283 2B 


DCX H 


0284 4E 


MOV C, M 


0285 3611 


MVI M, 17 


0287 110000 


LXI D, 


028R 78 


MULT1 : MOV R, B 


028B IF 


RRR 


028C 47 


MOV B, R 


"?8D 79 


MOV R, C 


28E IF 


RRR 


028F 4F 


MOV C, R 


0290 35 


DCR M 



RERDJUST DECIMRL TO GIVE 0. 16 



16X16; 
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9291 


CRB402 


JZ l 


MULOU 


0294 


D2R102 


JNC 


MULT2 


0297 


2D 


DCR 


L 


0298 


2D 


DCR 


L 


0299 


7B 


MOV 


A, E 


029R 


86 


RDD 


M 


029B 


5F 


MOV 


E, A 


029C 


2C 


INR 


L 


029D 


7R 


MOV 


A. D 


029E 


8E 


ADC 


M 


029F 


57 


MOV 


D, A 


02R0 


2C 


INR 


L 


02A1 


7R 


MULT2 : MOV R, D 


02A2 


IF 


RRR 




02A3 


57 


MOV 


D, A 


02A4 


7B 


MOV 


A, E 


02A5 


IF 


RRR 




02A6 


5F 


MOV 


E, A 


02 A 7 


23 


I NX 


H 


02A8 


7E 


MOV 


A, M 


02R9 


IF 


RRR 




I'RR 


77 


MOV 


M, A 


92AB 


23 


I NX 


H 


02RC 


7E 


MOV 


A, M 


02RD 


IF 


RRR 




02RE 


77 


MOV 


M, A 


02RF 


2B 


DCX 


H 


02B0 


2B 


DCX 


H 


02B1 


C38R02 


JMP 


MULT1 


02B4 


23- 


MULOU: I NX H 


02B5 


7E 


MOV 


A, M 


02B6 


23 


I NX 


H 


02B7 


6E 


MOV 


L, M 


02B8 


67 


MOV 


H, A 


02B9 


C9 


RET 




92BR 


3E80 


MRS 


•'E: MVI A, 80H 


02BC 


84 


RDD 


H 


02BD 


3E00 


MVI 


A, O 


02BF 


SB 


ADC 


E 


02C9 


5F 


MOV 


E, A 


92C1 


3E00 


MVI 


A, 


02C3 


8A 


ADC 


D 


02C4 


57 


MOV 


D, A 


02C5 


C9 


RET 




~"~ZC& 


010000 


ABC 


:AL: LXI B, O . 



ROUND 32 TO UPPER 16 



JC9 C5 
02CA 2A0D01 
02CD 220501 



LPCAL: PUSH B 
LHLD ZERO 
SHLD PRZER 



CALCULATE ABSORBANCE FOR 
WITH SAME 10 



SERIES OF DATA <.l> 
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RAGE S 



02D0 


210F01 


LXI 


H, DATA 


02D3 


09 




DAD 


B 


02D4 


03 




DAD 


B 


02D5 


5E 




MOV 


E, M 


02D6 


,-•' ••. 




I NX 


H 


02D7 


56 




MOV 


D, f'1 


02D8 


EB 




XCHG 


02D3 


220 


701 


SHLC 


> PRDAT 


02DC 


CD5' 


F01 


CALL ABSOR 


02DF 


213 


701 


LXI 


H, ABSBC 


02E2 


CI 




POP 


B 


02E3 


09 




DAD 


B 


02E4 


09 




DAD 


B 


02E5 


i' - —• 




MOV 


M, E 


02E6 


'^.S 




I NX 


H 


02E7 


f id 




MOV 


M, D 


02E8 


03 




I NX 


B 


02E9 


3A0C01 


LDA 


NMB 


02EC 


91 




SUB 


c 


02ED 


C2C 


:902 


.JNZ 


LRCAL 


02F0 


C9 




RET 




"100 






END 
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Ref.#D26 

INTEL® USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 B8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



TELEPROCESSING BUFFER ROUTINE 

To allow a microprocessor to buffer input/output to a USART to allow for 
speed differences between receiver/transmitter. 



Intel 8251 USART 



Intel PL/M compiler 



Accepts input from 8251 and places character into buffer. 



Transmits character from input buffer. 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nestinq Level: 
12 H 



Assembler/Compiler Used: 
PLM VERS 2.0 



Programmer: 



grammer: 

William Speary 



Cornpan 



npany: 
SPEARCO 



Address: 

19337 Olney Mill Road 



City: 
Olney 



State: 

Maryland 20832 



© Intel Corporation, 1976 
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7-73 



00001 




00002 




00003 




00004 




'0005 




00006 




00007 




00008 




00009 




00010 




00011 




00012 




00013 




00014 




00015 




00016 




00017 




00018 




00019 




00020 




00021 




00022 




00023 




00024 




00025 




00026 




00027 




00028 




00029 




00030 




;0031 




00032 




00033 




00034 




00035 




00036 




00037 




00038 




00039 




00040 


2 


OO041 


2 


00042 


2 


000 4 3 


2 


00044 


2 


00045 


2 


00046 


2 


00047 


2 


00048 


2 


00049 


2 


00050 


2 


00051 


2 


00052 


2 


00053 


2 


00054 


2 


00055 


2 


0056 


1 


•j005 7 


1 


00058 


1 


00059 


2 


00060 


2 



/*REF. NO. D25 */ 

/♦PROGRAM TITLE TELEPROCESSING BUFFER ROUTINE */ 
/* THIS LS A EXAMPLE ON A BUFFER HANDLING PROGRAM. */ 
/* IT CAN BE USED TO BUFFER INPUT 10 AND FROM USARTS. */ 
/* IS DATA COME IH AT A DIFFERENT RATE THEN THE OUTPUT */ 
/* CAN ACCEPT IT, THE PROGRAM WILL BUFFER IT. */ 
/* THE TIME DIFFERENCE BETWEEN THEN INPUT AND OUTPUT */ 
/* CAN BE HANDLED BY VARYING THE SIZE OF 'BUFFER* AND */ 
/* 'BUFLEN'. NOTE: 'BUFLEN' MUST BE ONE (1) LESS THAN */ 
/* THE SIZE OF 'BUFFER' . */ 

DECLARE LIT LITERALLY 'LITERALLY ' , DCL LIT 'DECLARE' • 
DCL VAD LIT '021H* ; ' 

DCL VAD$IN LIT '020H' ; 
DCL PROC LIT 'PROCEDURE' ; 
DCL R$RDY LIT '002H' ; 
DCL T$RDY LIT 'OlH* ; 
DCL BUFLEN LIT '100* ; 
DCL BUFFER(lOl) BYTE ; 

dcl count byte ; 

dcl; freeptr byte, outptr byte ? 

/* SET COUNT TO NUMBER OF ITEMS THAT BUFFER CAN HOLD */ 

/* THIS NUMBER WILL BE REDUCED FOR EACH ITEM PLACED INTO */ 

/* BUFFER. IF THE BUFFER SPACE IS EXHAUSED (I.E., OATA */ 

/* IS COMING IN FASTER THAN CAN BE OUTPUTED) THIS PROGRAM */ 

/* HALTS. */ 

/* IF 'COUNT' AND 'BUFLEN' ARE THE SAME THE BUFFER IS */ 
/* EMPTY AND THERE IS NOT DATA TO BE OUTPUTED. */ 

COUNT=BUFLEN ; 

/* 'FREEPTR* POINTS TO NEXT FREE SLOT IN BUFFER.*/ 

/* 'OUTPUT' POINTS TO THE NEXT CHARACTER TO BE OUTPUTED. */ 

freeptr, outptr= 1 ; 
getschar: proc ; 

/♦IF THERE IS NO MORE ROOM IN BUFFER 'HALT* */ 

IF (COUNT := COUNT - 1) = THEN 
HALT ; 

/* GET CHARACTER AND PUT IT IN BUFFER. */ 

3UFFER(FREEPTR)= INPUT( VAD$IN) ; 

/♦ UPDATE NEXT BUFFER EMPTY SLOT, IF END OF BUFFER */ 
/* WRAP TO THE BEGINING. */ 



IF (FREEPTR 
FREEPTR=l ; 



= FREEPTR tl) = BUFLEN THEN 



END 



putschar: proc ; 

/* IF THEN LEN OF BUFFER AND THE COUNT OF THE NUMBER */ 



7-75 



00003000 

00004000 

00005000 

00006000 

00007000 

00008000 

00009000 

00010000 

00011000 

00012000 

00013000 

00014000 

00015.000 

00016000 

00017000 

00018000 

00019000 

00020000 

00021000 

00022000 

00023000 

00024000 

00025000 

00026000 

00027000 

00028000 

00029000 

00030000 

00031000 

00032000 

00033000 

00034000 

00035000 

00036000 

00037000 

00038000 

00039000 

00040000 

00041000 

00042000 

00043000 

00044000 

00045000 

00046000 

00047000 

00048000 

00049000 

00050000 

00051000 

00052000 

00053000 

00054000 

00055000 

00056000 

00057000 

00058000 

00059000 



o o a & 1 

00062 
00063 
00064 
00065 
00056 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00076 
000 7 9 
00080 
00081 
00082 
00083 
00084 
0O085 
00086 
000 8 7 
00088 
00039 
00090 
0091 
00092 
00093 



2 

2 

2 

2 

2 

2 

3 

3 

2 

2 

2 

2 

2 

2 

2 

2 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 



/♦ OF FREE SLOTS I.N THE BUFFER ARE THE SAME, THEN RETURN */ 
/*. CAUSE iHERE IS NOTHING TO OUTPUT. */ 

IF (COUNT := COUNTtl)= BUFLEN+1 THEN 
DO ; 

CQUNT=BUFLEN ,* 
RETURN ; 

END 



/* OUPUT BUFFER CHARACTER. */ 

/* IF AT END OF BUFFER, a/RAP BACK TO BEGINING. */ 

3UTPUT(VADSIN)= BUFFER(OUTPTR) ; 

IF (OUTPTR := OUTPTR+1) = 8UFLEN THEM 

nuTPTRsi ; 

END 



/♦ IF THERE IS A CHARACTER IN THE 8251 BUFFER, THEM */ 
/* GO GET IT. */ 



LOOP: 



IF (INPUT(VAD) AND R$RDY) <> THEN 
CALL GEl$CHAR ; 



NO PROGRAM 



/* IF THEN IS A CHARACTER IN THE BUFFER AND THE 8251 CAN */ 
/♦ ACCEPT A CHARACTER THEN GO OUTPUT A CHARACTER. */ 

IF CUUi^T <> BUFLEN THEN 

IF (INPUT(VAD) AND T$RDY) <> THEN 
CALL PUT$CHAR ; 
GO TO LOOP ; 
EOF 
ERRORS 
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00060000 

00061000 

00062000 

00063000 

00064000 

00065000 

00066000 

00067000 

00068000 

00069000 

00070000 

00071000 

00072000 

00073000 

00074000 

00075000 

00076000 

00077000 

00078000 

00079000 

00-080000 

00081000 

00082000 

00083000 

00084000 

00085000 

00086000 

00087000 

00088000 

00089000 

00090000 

00091000 

00092000 
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MICROCOMPUTER USER'S o ec . me 
LIBRARY SUBMITTAL FORM **• —ML 



D 4004 D 4040 D 8008 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



RUN 



Under ISIS initiation, loads a binary module into RAM above ISIS then 
moves the binary module into memory locations determined by assembly . 
(or compilation) that includes ISIS area. Unmodified area of ISIS is 
erased to minimize risk to diskette integrity. 



MDS with Diskette System 



ISIS, PL/M Compiler 



Name of binary file that is to be loaded or a defalt file name that 

is selected before RUN is compiled. Binary module is first loaded 

with an offset of 4000H. Restarts 1 thru 7 are available to binary 
module . 



Binary module program starts executing from entry address it contains. 
Interrupt can still be used for returning to MONITOR. Need to reboot 
system to use ISIS again. 



Registers Modified: 


Assembler/Compiler Used: 

PL/M 


RAM Required: 


Programmer: 

Victor H. Grinich 


ROM Required: 


Company: 

Stanford University 


Maximum Subroutine Nesting Level: 


Address: 

26346 Esperanza Dr. 

T^s Alfns Hills. PA. Q4nP5 



98-034B 
7-78 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Dec. 1976 
Ref. D29 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004 D 4040 D 8008 (£ 80BO 



(use additional sheets if necessary) 



STAGE 2 



STAGE 2 is a language independent macro processor developed by Prof. 
William M. Waite of the University of Colorado. It is primarily 
intended to be used to implement machine independent software by 
means of abstract machine modeling, but it is suitable for use as a 
prepass for any language translator for purposes of providing macro 
capability. 



MDS 800 Intellec Microcomputer Development System with console device 
diskette drive (s) and controller, at least 48K RAM memory. 



ISIS-II Operating System 



Channel assignments eguivalencing STAGE 2 channels with ISIS-II 
files and devices. This implementation of STAGE 2 supports nine 
non-dummy I/O channels. 



User defined. 



Program offered 
on diskette only. 



Registers Modified: 


Assembler/Compiler Used: 

PL/M 80 


RAM Required: 
48K minimum 


Programmer: 

Bruce W. Ravenel 


ROM Required: 


Company: 

Intel ~ MCD Software Development 


Maximum Subroutine Nesting Level: 


Address: 

3065 Bowers Ave. 

Santa Clara. Ca. 95051 



8/78 
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Ref. t D30 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



□ 4004 D4040 D8008 08080 D3000 D Other. 



(use additional sheets if necessary) 



PAPER TAPE LEADER I.D 



This program allows up to a 7 2 character message at one time 
to be punched out on a paper tape punch. This makes possible 
a permanent identification of the program or data to be 
punched on the paper tape in lieu of writing on, or affixing 
labels to, the paper tape leader. 

The program uses the P0 , CO and CI routines of the MDS 
monitor. The program starts a 300H. After the operator 
inputs the G300 command, the program outputs the following 
message : 

INPUT UP TO 72 CHAR. - END W/C.R.; 

and then waits for the message to be input. The length of 
the allowed message can be changed by changing the BUFSIZ 
a quote statement. If more than the allowed 7 2 character 
message is required, the program can be rerun as many times 
as required. 

Upon receipt of a carriage return, or an attempt to input 
more than 7 2 characters, the program takes each stored 
message character, accesses the table to convert the char- 
acter to a string of ASCII characters, outputs the string 
to the punch and punches the string to form a readable 
alphanumeric character or symbol. When the buffer is empty, 
the program returns control to the MDS monitor. 



Registers Modified: 
N/A 


Programmer: 
Ken Paul MS*14 


RAM Required: 
IK 


Company: 
Control Data Corporation 


ROM Required: 

MDS Monitor (2K) 


Address: 
11615 I Street 


Maximum Subroutine Nesting Level: 
N/A 


City: 
Omaha 


Assembler/Compiler Used: 

80 80 MDS Macro Assembler VI. 


State: 
Nebraska 68137 



1) Intel Corporation. 1976 
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Ref. § D30 



insitg " INTEL * "SER'S LIBRARY submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 H8080 D3000 □ Other. 



(use additional sheets if necessary) 



PAPER TAPE LEADER I.D. 
(see page 1) 



Hardware required is the standard MDS-800 with TTY (with 
tape reader and punch) connected to the MDS TTY port 
connector. 



MDS Monitor 



Read in program. Give starting address command (G300) and 
input message on console device. 



Readable alphanumerics and symbols punched into paper tape 
in paper tape punch. 



Registers Modified: 
N/A 


Programmer: 

Ken Paul MS*14 


RAM Required: 
IK 


Company: 

Control Data Corporation 


ROM Required: 

MDS Monitor (2K) 


Address: 

11615 I Street 


Maximum Subroutine Nesting Level: 
N/A 


City: 
Omaha 


Assembler/Compiler Used: 

8080 MDS Macro Assembler VI. 


State: 

Nebraska 68137 



© Intel Corporation, 1976 
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Ref. # D31 



insite 



INTEL* USERS LIBRARY SUBMITTAL FORM 



D4004 D4040 D8008 H8080 D3000 D Other. 



(use additional sheets if necessary) 



Program 
Title- 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



LSORT 



This subroutine sorts an ASCII file in alphabetical 
order. The file is in memory and is terminated with 
a control Z (1AH) character. Each line, or record, is 
terminated with a LINE FEED (0AH). 



None 



None 



HL = Address of first character in file 



Each record in the file is in alphabetical order, 



Registers Modified: 
ALL 



RAM Required: 
III HEY 



ROM Required: 
none 



Maximum Subroutine Nesting Level: 
2 



Assembler/Compiler Used: 



Pr6grammer: 

Dick Spring er 



Company: 

General Microwave Corp. 



Address: 

155 Marinp Street 



City: 

Farmingdale 



State: 

New York 117 3 5 



© Intel Corporation, 1976 
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S 8080 MACRO RSSEMBLER, VI. 1 



PfiGE 1 



.: REF. NO. D31 

; PROGRAM TITLE LSORT 



;LINE SORT ROUTINE 

; THIS ROUTINE ARRANGES THE LINES OF AN ASCII FILE 
.: IN ALPHABETICAL ORDER. THE FILE LS IN MEMORY 
;EACH LINE MUST BE TERMINATED WITH A LINE FEED CflflHO 
,AND THE FILE MUST BE TERMINATED WITH A CONTROL-Z -:1AH> 
;THE CONTROL-Z MUST BE IMMEDIATELY PRECEDED BY A LINE 
.;FEED. THE INITIAL ADDRESS OF THE FILE MUST BE IN 
J REGISTER PAIR HL. THE MAXIMUM PERMISSIBLE LENGTH OF 
.; A LINE IS 96 <66H> CHARACTERS. 



000A 


LF 


EQU 


OAH 


001A 


CTLZ EQU 


1AH 




LSI 


URT : 




0000 


22AB00 


SHLD 


SPB 


'"1003 


22AF00 


SHLD 


SPD 


.-006 


CD53O0 


CALL 


LOAD 


0009 


CD9300 


CALL 


COMP 


000C 


C21500 


JNZ 


*+9 


000F 


DA2900 


JC 


ENDG 


0012 


C30900 


JMP 


LSORT+9 


0015 


DAIEOO 


JC 


$+9 


0018 


2AAD00 


LHLD 


SPC 


001B 


C3030O 


JMP 


LSORT+3 


001 E 


2B 


DCX 


H 


001F 


7E 


MOV 


A, M 


0020 


FEOA 


CPI 


LF 


0022 


23 


I NX 


H 


0023 


C21F00 


JNZ 


$-4 


0026 


C30900 


JMP 


LSORT+9 




ENDG : 




0029 


22A900 


SHLD 


SPA 


002C 


2AAF0O 


LHLD 


SPD 


002 F 


CD7F00 


CALL 


CLOSE 


0032 


2AA90O 


LHLD 


SPA 


0035 


CD6000 


CALL 


OPEN 


0038 


2AAB00 


LHLD 


SPB 


003B 


EB 


XCHG 




003C 


22AB00 


SHLD 


SPB 


003 F 


22AF00 


SHLD 


SPD 


042 


216000 


LXI 


H, 60H 


0045 


19 


DAD 


D 


0046 


CD8200 


CALL 


CLOSE+3 



7-87 
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PAGE 2 



0049 ; 


2AAB00 


004C 


3E1A 


004E 


BE 


O04F 


CA0600 


0052 


C9 


0053 


11B100 


0056 


7E 


0057 


12 


0058 


13 


0059 


23 


005A 


FE0A 


005C 


C25C00 


005F 


C9 


0060 


EB 


0061 


216000 


0064 


19 


0065 


44 


"1066 


4D 


c.1067 


2AAB00 


006A 


1A 


006B 


02 


006C 


7C 


006D 


BA 


006E 


DA7300 


0071 


7D 


0072 


BB 


0073 


IB 


0074 


0B 


0075 


DA6A00 


0078 


13 


0079 


21B100 


007C 


C35608 


007F 


CD5300 


0082 


EB 


0083 


2AAF00 


0086 


1A 


0087 


77 


0088 


FE1A 


008A 


ii!ji- 


008B 


13 


008C 


C28600 


)08F 


2AAF0© 


0092 


€9 



LOAD 



OPEN 



CLOSE 



LHLD 


SPB 


MVI 


A, 1AH 


CMP 


M 


JZ 


LSORT+6 


RET 




LXI 


D, IBUF 


MOV 


A, M 


STAX 


D 


I NX 


D 


INX 


H 


CPI 


LF 


JNZ 


* 


RET 




XCHQ 




LXI 


H, 60H 


DAD 


D 


MOV 


B, H 


MOV 


C, L 


LHLD 


SPB 


LDAX 


D 


STAX 


B 


MOV 


A, H 


CMP 


D 


JC 


$+5 


MOV 


A, L 


CMP 


E 


DCX 


D 


DCX 


B 


JC 


$-11 


INX 


D 


LXI 


H, IBUF 


JMP 


LOAD+3 


CALL 


LOAD 


XCHQ 




LHLD 


SPD 


LDAX 


D 


MOV 


M, A 


CPI 


CTLZ 


INX 


H 


INX 


D 


JNZ 


*-6 


LHLD 


SPD 


RET 
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COMP 



0093 


22RD00 




SHLD 


SPC 


QQ96 


11B100 




LXI 


D, IBUF 


0099 


3E1R 




MVI 


fl, CTLZ 


009B 


BE 




CMP 


M 


009C 


37 




STC 




009D 


C8 




RZ 




009E 


lfl 




LDRX 


D 


009F 


BE 




CMP 


M 


00fl0 


23 




I NX 


H 


00fll 


13 




I NX 


D 


00A2 


C0 




RNZ 




00R3 


FE0fl 




CPI 


LF 


001=15 


C29900 




JNZ 


*-12 


00fl8 


C9 




RET 




00fl9 


0000 


SPfl 


DW 





00RB 


0000 


SPB 


DW 





00RD 


0000 


SPC 


DW 





00AF 


0000 


SPD 


DW 





00B1 




IBUF 


: : DS 


60H 



J000 



END 
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Ref. # D33 



insitg " INTEL * USER'S LIBRARY SUBMITTAL FORM 

D4004 D4040 H8008 D8080 D3000 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



OCTHEX 



Prints a table of the octal numbers - 377 along with their 
hexadecimal equivalents 



TTY as device 8. 



None. This program includes a TTY print routine as well as binary 
to octal and binary to hexadecimal subroutines. 



None. 



The printed table of octal and hexadecimal numbers, 



Program available in 
source listing only. 



Registers Modified: 
N/A 



RAM Required: 
None 



ROM Required: 
105. 



Maximum Subroutine Nestinq Level: 
3 



Assembler/Compiler Used: 
PDP11 Macro's 



Programmer: 
L. Leipuner 



Company: 

Brookhaven National Laboratory 



Address: 

Building 510 



Cit 



Upton 



State: 

New York 11973 



© lnt«l Corporation. 1976 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. # D34 



D 4004 D 4040 D 8008 13 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



SDK-80 PAPER TAPE PUNCH ROUTINE 

The program outputs the contents of a specified area of memory to paper 
tape in a format compatible with the SDK-80 T command. It may be used 
to store partially or fully developed programs in machine readable form. 
Tape produced by this program may be read into memory by the SDK-80 
Monitor 'I* (Insert into memory) command. 



Standard SDK-80 board. The author's system has 512 bytes of RAM and uses 
an ASR 33 as console device. 



The program uses a number of SDK-80 Monitor subroutines; these are listed 
below, together with their start addresses: 

6ETNM 0257 CI 01D0 

NMOUT 02C3 HILO 029C 

CO 01E3 

Program execution is initiated via the system monitor using the G command. 
The program will immediately output CRLF to the console and wait for the 
operator to input the begin and end addresses of the memory to be punched. 
The addresses are input in the format 

BBBB, EEEE CR 

where B and E represent hexadecimal begin and end addresses respectively. 
SDK-80 Monitor conventions are followed regarding delimiters and addresses 
containing other t'han four digits. Input of a non-hex character will 
return control to the Monitor. 

When the addresses have been input the program waits for the operator to 
switch on the tape punch. The operator indicates that the punch is on by 
inputing any character to the console; the character is not echoed. 
The program punches 32 spaces, CR, the contents of the indicated memory 
area (as ASC II coded hex digits), CR, 32 spaces, CR. Control is then 
returned to the monitor, which responds with CRLF and outputs the message 
MCS 80 KIT, followed by the prompt character. The tape should be cut just 
before the CRLF output by the Monitor. 

The Monitor I command is used to read the tape into memory. The sequence 
is IXXXX CR followed by tape reader on (XXXX is the start address for the 



Registers Modified: 

All 


Assembler/Compiler Used: 

None 


RAM Required: 

~ 50 bytes + stack 


Programmer: 

Steve Richards 


ROM Required: 


Company: 

VORTEK Industries Ltd. 


Maximum Subroutine Nesting Level: 
3 


Address: 

1820 Pandora St., X§r--p M §- c - » 



4/77 



98-034B 
7-93 



-2- 



INPUT PARAMETERS (Cont'd) 



memory insertion). When the tape stops the Escape character is input 
to the console to terminate the I command. 

An example of the use of the program to punch a segment of the System 
Monitor to tape and read it back into RAM is included on a separate sheet. 
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REF. NO. D34 

PROGRAM TITLE SDK-80 PAPER TAPE PUNCH ROUTINE 



1200 






ORG 


1200H 


0257 




GETNM 


EQU 


0257H 


02C3 




NMOUT 


EQU 


02C3H 


01E3 




CO 


EQU 


01E3H 


01D0 




CI 


EQU 


01DOH 


029C 




HILO 


EQU 


029CH 


1200 


0E02 


TPNCH : 


MVI 


C, 02H 


1202 


CD5702 




CALL 


GETNM 


1205 


Dl 




POP D 




1206 


El 




POP H 




1207 


CDD001 




CALL 


CI 


120A 


CD1F12 




CALL 


SPCES 


120D 


7E 


TP10 : 


MOV 


A, M 


'iOE 


CDC302 




CALL 


NMOUT 


1.211 


CD9C02 




CALL 


HILO 


1214 


DA1B12 




JC 


TP15 


1217 


23^ 




I NX 


H 


1218 


C30D12 




JMP 


TPIO 


121B 


CD1F12 


TP15 : 


CALL 


SPCES 


121E 


CF 




RST 


1 


121F 


CD2C12 


SPCES : 


CALL 


LNFN 


1222 


0620 




MVI 


B, 20H 


1224 


48 




MOV 


C, B 


1225 


CDE301 


SP05 : 


CALL 


CO 


1228 


05 




DCR 


B 


1229 


C22512 




JNZ 


SP05 


122C 


0E0D 


LNFN : 


MVI 


C, 0DH 


122E 


CDE301 




CALL 


CO 


1231 


C9 




RET 




0000 




END 
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Ref. # D35 



insite " INTEL> USER ' S library submittal form 



Program 
Title 

Function 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 #8080 D3000 □ Other. 



(use additional sheets if necessary) 



Type K T.C. Linearizer (Procedure) 

Store the binary equivalent ( 1 Byte) of temperature in degrees Fahrenheit 
for a full scale of 1000°F referenced to ice point. * (* Using electronic 
compensation). 



Required Intellect 8/Mod 80 or any 8080 based Microprocessor 

Hardware 



PLM Compiler on Host Machine 



Two: RawtTemp = Measured Junction (0. 091 MV per Bit) 

Ref$Temp = Reference Junction Compensation (0.091 MV per Bit) 



One: Comp$Temp = Binary Equivalent to Measured Temperature 
From 0° to 1000°F With Transfere Function 
Equal to 4. 07°F Per Bit. 



Registers Modified: 
A,B,C,D.E,H,L, &SP 



RAM Required: 

5 Bytes (Variables) + 6 Bytes (Stack) = 11 

ROM Required: 

111 Bytes 



Maximum Subroutine Nesting Level: 
Six 



Assembler/Compiler Used: 
PLM 



Programmer: 

O, Leon Lindsev. Sr. R^s^ar^h Fn £ 



Company 
Solar, Div. of I.H. 



Address: 
2200 Pacific Highway 



City: 
San Diego 



State: 
California 92138 



© Intsl Corporation, 1976 
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98 034 C 

7-97 



Ref. # D35 



TCK. 

00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

0001 1 

00012 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 



LPT 



/♦HOUSEKEEPING ENTRIES */ 
DECLARE DCL LITERALLY 'DECLARE'; 
DCL LIT LITERALLY 'LITERALLY';" 
DCL PRC LIT 'PROCEDURE'; 
DCL ADR LIT 'ADDRESS'; 

/* END OF HOUSEKEEPING */ 
/* GLOBAL VARIABLES */ 
DCL RAWSTEMP BYTE; /*BINARY INPUT » TO MEASURED JUNCTION 

GAIN EQUAL 0,091 MV PER BIT*/ 
DCL REFSTEMP BYTE; /* BINARY INPUT = TO REF JUNCT COMPEN 

SATION GAIN EQUAL 0.091 MV PER BIT */ 
DCL COMPSTEMP BYTE; /* OUTPUT BINARY = TO MEASURED TEMPER 

ATURE GAIN EQUAL 4.0 7 DEG PER BIT */ 



COMP$TEMP$GET:PRC; /* PROCEDURE FROM LINE 190 TO 270 */ 

dcl (modtemp, tempby25) byte; 
do; 

modtemp = rawstemp ♦ refstemp; 

tempby25 = (255 - modtemp) / 25 ; 

if tempby25 < 7 then comptemp = tempby25 +1 + modtemp; 

else comptemp = modtemp ♦ 7; 
end; 
end comp$temp$get; 



start: do; /* short routine to exercise procedure */ 
call compstempsget; 
output (1) = comptemp; 

end; 

EOF 

NO program errors 



READY 

?v 

? 
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Ref. # D36 



■nSlte INTEL * "SER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 E8080 D3000 □ Other. 



(use additional sheets if necessary) 



Enable Hold - Screen Mode 

Enable Hold-Screen-Mode of DEC Scope Model VT-52 



MDS 800 with DEC Scope Model VT-52 



No additional software required 



None 



Enables Hold-Screen-Mode of DEC Scope Model VT-52 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

ISIS 8080 MACRO Assembler VI. 1 



Programmer: 

D. Brenneman 



Company: 

General Electric 



Address: 



City: 



Waynesboro 



State: 

VA 22980 



© Intel Corporation, 1976 

4/77 



98 034C 

7-101 



IL i 8988 MACRO ASSEMBLER, VI. 1 
ENHSM 1 5 77 DB 



PAGE 1 



88F6 
88F7 
8881 
881B 
8889 
8848 

F588 

F588 3131F5 

F583 8E1B 
F565 CD1AF5 

508 8E5B 
h50A CD1AF5 

F58D 21FEFF 
F518 39 
F511 E5 
F512 EB 
F513 8E89 
F515 CD4888 
F518 FB 
F519 76 



F51A DBF7 

F51C E681 

F51E CA1AF5 

F521 79 

F522 D3F6 

F524 C9 

F? r »2I = i 2^ r 'F! = i 

F500 



REF. NO. D36 
PROGRAM TITLE ENHSM 



TITLE- ENHSM 1 5 77 DB " 

; THIS NILL ENABLE THE DECSCOPE HOLD- SCREEN-MODE 



CRTDP 


EQU 


0F6H 


> CRT DATA PORT 


CRTS 


EQU 


0F7H 


; CRT STATUS PORT 


TBR 


EQU 


1 


.; TRANS BUFFER READV 


ESC 


EQU 


1BH 


i ESCAPE KEY 


EXIT 


EQU 


3 




ISIS 


EQU 


40H 






ORG 


0F500H 




START : 


LXI 


SP, STACK+12 




MVI 


C, ESC 






CALL 


CRTOU 






MVI 


c, •■[ - 


• EN h-S-M 




CALL 


CRTOU 






LXI 


H, -2 


i SP=K 




DAD 


SP 


; HL=K-2 




PUSH 


H 


: SP=K-2, <T0S)=K-2< STATUS; 




XCHQ 




; DE=K-2 




MVI 


C, EXIT 






CALL 


ISIS 


.; RETURN CONTROL TO ISIS 




EI 




.; <BACK HERE IF ISIS. CLI 




HLT 




; HAS BEEN DESTORYED::- 


CRTOU : 


IN 


CRTS 






AN I 


TBR 






JZ 


CRTOU 


.: LOOP TILL READY 




MOV 


A, C 






OUT 


CRTDP 






RET 






STACK : 


DW 


* 






END 


START 
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Ref. # D37 



ilisite INTEL ° users library submittal form 



□ 4004 D4040 D8008 08080 D3000 □ Other. 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



(use additional sheets if necessary) 



Disable Hold - Screen Mode 

Disable Hold-Screen-Mode of DEC Scope Model VT-52 



MDS 800 (with DOS) and DEC Scope 



No Additional software required 



None 



Output Disable Hold-Screen-Mode of DEC Scope 

Results 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

ISIS 8080 MACRO Assembler VI . 1 



Programmer: 

u. Brenneman 



Company 



eneral Electric 



Address: 



City 



Waynesboro 



State: 

VA 22980 



© Intel Corporation, 1976 

4/77 



98 034 C 

7-J04 



I- £ 8080 MACRO ASSEMBLER, VI. 1 
DIHSM 1 5 77 DB 



PAGE 1 



00F6 
00F7 

0001 
001B 
0009 
0040 

F500 

F500 3131F5 

F503 0E1B 

>05 CD1AF5 
1-508 0E5C 
F50A CD1AF5 

F50D 21FEFF 
F510 39 
F511 E5 
F512 EB 
F513 0E09 
F515 CD4000 
F518 FB 
F519 76 



F51fl DBF 7 
F51C E601 
F51E CA1AF5 
F521 79 
F522 D3F6 
F524 C9 

F525 25F5 

F500 



REF. NO. 03? 
PROGRAM TITLE DIHSM 



TITLE- DIHSM 1 5 77 DB " 

.: THIS WILL DISABLE THE DECSCOPE HOLD-SCREEN-MODE 



CRTDP 


EQU 


0F6H 


: CRT DATA PORT 


CRTS 


EQU 


0F7H 


: CRT STATUS PORT 


TBR 


EQU 


1 


■• TRANS BUFFER READY 


ESC 


EQU 


1BH 


: ESCAPE KEV 


EXIT 


EQU 


9 




ISIS 


EQU 


40H 






ORG 


0F500H 




START : 


LXI 


SP, STACK- 


<-12 




MVI 


C, ESC 






CALL 


CRTOU 






MVI 


C, 


DI H-S-M 




CALL 


CRTOU 






LXI 


H, -2 


SP=K 




DAD 


SP 


HL=K-2 




PUSH 


H 


SP=K-2, < TOS > =K-2 < STATUS > 




XCHQ 




DE=K-2 




MVI 


C, EXIT 






CALL 


ISIS 


RETURN CONTROL TO ISIS 




EI 




<BACK HERE IF ISIS. CLI 




HLT 




HAS BEEN DESTORVED> 


CRTOU : 


IN 


CRTS 






AN I 


TBR 






•JZ 


CRTOU .; 


LOOP TILL READY 




MOV 


A, C 






OUT 


CRTDP 






RET 






STACK : 


DW 


$ 






END 


START 
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Ref.#D38 



insite 



INTEL® USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 38080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



THERMOCOUPLE LINEARIZATION (TYPE J) 

PROGRAM WILL CONVERT MILLIVOLT VALUES FROM A TYPE J 
THERMOCOUPLE TO DEGREES CENTIGRADE. (REFERENCE JUNC- 
TION DEGREES CENTIGRADE.) RANGE FROM -220 DEG. C. TO 
300 DEG. C. 



00B8H BYTES PROM/ROM FOR BASIC PROGRAM. 017DH BYTES 
INCLUDES ALL MATH ROUTINES REQUIRED (SIGNED 16 BIT DIVIDE, 
SIGNED 16 BIT MULTIPLY, ETC.) NO RAM IS REQUIRED. 

MAY USE OWN MATH PACKAGE IF COMPATIBLE. 



REGISTER PAIR D & E CONTAIN MILLIVOLT READINGS TIMES 1000. 



REGISTER PAIR H & L RETURN WITH DEGREES CENTIGRADE 
TIMES 10. ALL OTHER REGISTERS ARE MODIFIED. 
THERMOCOUPLE TABLE IS IN 10 DEG. C. INCREMENTS. LINEAR 
INTERPOLATION IS PERFORMED ON VALUES THAT FALL BETWEEN 
INCREMENTS. DIFFERENT THERMOCOUPLE TYPES MAY BE USED 
BY REPLACING THE TYPE J TABLE WITH THE DESIRED MILLIVOLT 
TABLE FROM N. B. S. REFERENCE TABLES. 



Registers Modified: 
ALL 



RAM Required: 
NONE 



ROM Required: 
017DH 



Maximum Subroutine Nesting Level: 
ONE 



Assembler/Compiler Used: 

PCS 8080 ASSEMBLER 



Programmer: 

PETER C. SCHMITT 



Company: 

OMICRON, INC. 



Address: 

1111 E. TEN MILE RD 



City: 



MADISON HEIGHTS 



State: 



MICHIGAN 48071 



© Intel Corporation, 1976 



6/8/77 



98-034D 
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insite 



Ref.# D39 

INTEL* USER'S LIBRARY SUBMITTAL FORM 



D4004 D4040 D8008 H8080 D3000 D Other. 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



INVERT Data in RAM 
Invert Data in RAM 



NTELLECT 8/Mod 80 



INTELLECT 8/Mod 80 MONITOR (1975) 



- I 

- ADDRESS (Hex) of Beginning 

- , (comma) 

- ADDRESS (Hex) of Finish 

- CR 



Contents of RAM (from beginning thru finish) is complemented 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



Programmer: 

D. Rrpnnpmsn 



Company: 

General Electric 



Address: 

GE Drive 



City: 

Waynesboro 



State: 

Virginia 2298Q 



© Intel Corporation. 1976 



6/8/77 



98 034 C 

7-1J0 



START 
PCHL 



I NVERT 
CALL - 



EXPR 
CALL 



Tl 
CALL 



CI 
RET 



CALL 



RET 



CO 
RET 



CALL > NIBBLE 

f RET 



CALL 



RET 



-> P2C 
— RET 



CALL > HILO 

< RET 



J MP 



7-112 



ISIS 8880 MACRO ASSEMBLER, VI. 1 
INVERT 1/18/7? DB. 



PAGE 1 



REF. NO. D3S> 
PROGRAM TITLE INVERT 



TITLE 



INVERT 1/18/77 DB. 



THIS IS DESIGNED TO BE A MODIFICATION TO THE 
INTELLEC8/M0D 80 MONITOR, VERSION 2. O, 14 APRIL 1375 

IT WILL COMPLEMENT THE DATA IN <RAM> MEMORY 

FROM BEGINNING ADDRESS THRU ENDING ADDREbb 

AND ISSUE A PROMPT CHARACTER WHEN FINISHED. 

IT IS INVOKED BV TYPING 

I BEG INNING ADDRESS, ENDING ADDRESS <CARRA I GE RETURN) 

IT WILL FIT INTO THE EPROMS USED FOR THE MONITOR 
BV CHANGING TWO EPROMS <38O0H AND 3F00H> 



EPROM 3800H CHANGE* 



38A2H FROM 43H TO E4H 
38A3H FROM 3CH TO 3FH 



EPROM 3FO0H ADDITIONS: 3FE4H THRU 2FF4H ARE Ab FOLLOWb 



3FE4 



ORG 



3FE4H 



3FE4 


CD703D 


3FE7 


Dl 


3FE8 


El 


3FE9 


7E 


3FEA 


2F 


3FEB 


77 


3FEC 


CDA43D 


3FEF 


D2E93F 


3FF2 


C3SB38 



CALL 


3D70H 


POP 


D 


POP 


H 


MOV 


A, M 


CMA 




MOV 


M, A 


CALL 


3DA4H 


JNC 


$-6 


JMP 


386BH 



; EVALUATE EXPRESSION 

; FINISH ADDRESS 

i BEGINNING ADDRESS 

; GET DATA 

> INVERT DATA 

.; RETURN DATA 

; COMPARE HL WITH DE CAND I NX H) 

; LOOP TILL HL=DE 

; START - ISSUE PROMPT WHEN DONE 



0000 



END 



7-JJ3 



insite 



Ref.# D40 



INTEL" USERS LIBRARY SUBMITTAL FORM 



D4004 D4040 >®8008 D8080 D3000 D Other. 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



RELATIVE JUMP ROUTINE 



This routine implements a two-byte relative jump instruction for 
saving memory in a large program. Three-byte unconditional jumps 
may be replaced with a two-byte sequence if the destination address 
lies within PC-127 and PC+128. Any available restart vector may be 
used. 



THE CALLING SEQUENCE IS AS FOLLOWS: 

RST X ; RESTART TO RELATIVE JUMP ROUTINE 
DB N ; ADDRESS OFFSET 

OR, WITH THE INCLUDED ADDRESS CONVERSION MACRO 
JR ADDR ; JR CONVERTS ADDR TO OFFSET 



COMMENTS : 

Stack depth increases by 6 bytes. Execution time for a relative 
jump is 144 microseconds compared with 10 microseconds for a regular 
jump, (clock frequency =1.0 MHZ) 



Registers Modified: 
NONE 


Programmer: 

Bernard J . Verreau 


RAM Required: 
NONE 


Company: 

National Cash Reqister 


ROM Required: 
16 bytes 


Address: 

P.O. Box .607 


Maximum Subroutine Nesting Level: 
STACK USAGE: 6 bytes 


City: 

Mi 1 Isboro 


Assembler/Compiler Used: 

1515 8Q8Q MACRO ASSEMBLER. VJ . J 


State: 

DELAWARE J 9963 



© Intal Corporation. 1976 



6/8/77 



98 034 C 

7-114 



ISIS 8088 MACRO ASSEMBLER, VI. 1 
RELATIVE JUMP ROUTINE 
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; REF. NO. D4Q 

; PROGRAM TITLE JR REATIVE JUMP ROUTINE 



0038 




0038 


E3 


0039 


F5 


O03A 


D5 


003B 


AF 


003C 


57 


00 3D 


5E 


003E 


B3 


003F 


F24300 


0042 


15 


0043 


19 


0044 


Dl 


0045 


Fl 



TITLE x RELATIVE JUMP ROUTINE' 

NAME: JR B. J. VERREAU NCR CORPORATION 

RELATIVE JUMP ROUTINE 

ENTRY : 

CALLED WITH AN 'RST 7 INSTRUCTION. THE BVTE 
FOLLOWING THE RESTART IS THE ADDRESS OFFSET. 



84/11/77 



EG: 



RST 
DB 



; JUMP RELATIVE TO 'EG' 



EXIT 



THE PROGRAM COUNTER IS SET EQUAL TO THE TRANSFER 
ADDRESS IF IT LIES WITHIN THE RANGE <PC-127, PC+128X 



REGISTER USAGE: 




fl - 




B - 


c - 


D - 


E - 


H - 


L - 


CARRV - 


2ER0 - 


SIGN - 


PAR I TV - 


SP - 


PC - S 



STACK USAGE: 6 

JR MACRO 
RST 
DB 
ENDM 

ORG 0038H 
XTHL 

PUSH PSW 

PUSH D 

XRA A 

MOV D, A 

MOV E, M 

ORA E 

JP FORWD 

DCR D 

FORWD : DAD D 

POP D 

POP PSW 



LENGTH : 15 

; ADDRESS CONVERSION MACRO 



ADDR 

7 

<ADDR-*> AND OFFH 



; * RELATIVE JUMP ROUTINE * 

; FETCH OFFSET POINTER 

.; STACK WORKING REGISTERS 



SET UP ADDRESS OFFSET 



i BRANCH IF OFFSET POSITIVE 
.; COMPLEMENT HI ADDRESS 



UNSTACK REGISTERS 



7-116 



ISIS 8880 MACRO ASSEMBLER, VI. 1 
RELATIVE JUMP ROUTINE 



PAGE id 



0046 ES 

0047 C9 



U048 FF 
0049 01 

004A FF 
004B 01 



004C FF 
004D 03 

004E FF 
004F F9 

0056 FF 
0051 FD 

0048 



XTHL 
RET 

TEST PROGRAM 



STORE NEW RETURN ADDREbS 



TEST: 

+ 
+ 
+ 

+LAB1 : 

+ 
+ 

LAB2 : 

+LAB2 : 

+ 
+ 



RST 

DB 

JR 

RST 

DB 

JR 

RST 

DB 

RST 

DB 

JR 

RST 

DB 

END 



1 

LABI 

7 

<0004CH-*> AND OFFH 



JUMP TO NEXT INSTRUCTION 
JUMP TO NEXT INSTRUCTION 



LAB3 ; JUMP TO LAST INSTRUCTION 

7 

<00050H-*> AND OFFH 

7 .; JUMP TO FIRST INSTRUCTION 

-7 

LAB2 i JUMP TO PREVIOUS INSTRUCTION 

7 

<0004EH-$> AND OFFH 

TEST 
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Ref.# D41 



inSitg " INTEL ' USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D4004 D4040 D8008 &8080 D3000 D Other. 



(use additional sheets if necessary) 



JULIAN DATE ROUTINE 

Check validity of, and/or convert to Julian, dates from 
January 1, 1901 and December 31, 2099, 



8080 System 



Driver Routine 



H, L contains address of ASCII MMDDYY 



D, E contains Julain Date (integer) 
Carry set if and only if invalid date 



Registers Modified: 

D. E. PSW r A 



RAM Required: 
07BH 



ROM Required: 
-J. 



Maximum Subroutine Nesting Level: 
3 levels 



Assembler/Compiler Used: 

IS IS 8080 MACRO ASSEMBLER 



Programmer: 

Leonard J. Jow^r-^ 



Company: 

Sul I ivan. Long K H*g er ty 



Address 
P.O. Rnv 7747 



© Intel Corporation, 1976 



City: 
Bi rmingham , 



State: 

-AL 25201 



6/8/77 



98 034 C 

7-U8 



IL 



8080 MACRO ASSEMBLER, 



'1. 1 



PAGE 1 



REF. NO. 
PROGRAM 



D41 
TITLE 



•JULIAN DATE ROUTINE 













.» ui_ i nra un i c. 








H, L ASCII MMDDVV ADDR 








D, E < JULIAN DATE 








CARRY IFF ERROR 


0000 


E5 


JULIAN: 


PUSH H; 


0001 


C5 




PUSH B; 


0002 


CD4700 




CALL JS1; CARRV IFF ERROR 


0005 


57 




MOV D, A.; MONTH 


0006 


D 44 700 




CNC JS1; 


0009 


5F 




MOV E, A.; DAV 


000A 


D4470O 




CNC JS1; 


000D 


DA4400 




JC JERRj VEAR 


0010 


2163:00 




LXI H, JULTBL+1; 


~rl2 


0600 




MVI B, 0; 


0015 


4A 




MOV C, D.; 


0016 


09 




DAD B; 


0017 


09 




DAD B.; 


0018 


46 




MOV B, M; 


0013 


2B 




DCX H; 


001A 


4E 




MOV C, M; 


001B 


2B 




DCX Hi 


001C 


C5 




PUSH B; PRELIM MAXDAV 


001D 


46 




MOV B, M; 


001E 


2B 




DCX H.; 


001F 


4E 




MOV C, M; 


0020 


6B 




MOV L, E; 


0021 


2600 




MVI H, 0.; 


0023: 


09 




DAD B; PRELIM JULIAN DATE 


0024 


CI 




POP B; 


©025 


E603 




AN I 011B; VEAR-:: MOD 4> 


0027 


7A 




MOV A, D; 


0028 


C23500 




JNZ J100.; 


002B 


FE02 




CPI 2.; FEB? 


O02D 


DA3'500 




JC J 100.; 


0030 


CA3400 




JZ J000; 


0033 


23 




I NX H; MAR-DEC':: I NCR JULIAN DATE 


£1034 


03 J 


r 000 : 


I NX B.: FEB-DECUNCR MAXDAV > 


0035 


FEOD ,1 


"100 : 


CPI 13.: MMC13? 


~'~13? 


D24300 




JNC JERX; 


J3A 


EB 




XCHG.; 


003B 


7A 




MOV A, D.; 


003:C 


2F 




CMA; 



7-120 



I'_ 5 8080 MfiCRO ASSEMBLER, VI. 1 



PAGE 2 



00j.'D 67 




MOV H, A.; 


003E 7B 




MOV A, E; 


003F 2F 




CMA; 


0049 6F 




MOV L, A.; 


O041 23 




I NX H; 


0042 09 




OAO B; 


0043 3F 


•JERX: 


CMC; 


0044 CI 


..TERR : 


POP B; 


0045 El 




POP H; 


€1046 C9 




RET; 


0047 CD5900 


JS1 : 


CALL JS2; 


004R D8 




RC; 


004B 07 




RLC; 


004C 47 




MOV B, A; 


004D 07 




RLC; 


004E 07 




RLC; 


004F 80 




AOO B; 


0050 47 




MOV B, A; 


0051 CD5'300 




CALL JS2; 


0054 08 




RC; 


355 80 




AOO B; 


U056 FE01 




CPI 1; 


0058 C9 




RET; 


0059 7E 


JS2 : 


MOV A, M; 


005 A 23 




I NX H; 


005B D630 




SU I • " ; 


0050 08 




RC; 


005E FE0A 




CPI 10; 


0060 3F 




CMC; 


0061 09 




RET; 



0062 00001F00 JULTBL 

Q066 3B005A00 

006A 78009700 

006E B500O400 

0072 F3001101 

0076 30014E01 

007A 6001 

0000 ENO; 



ON OOO.' 031, 059, 090, 120, 151.i 



OW 181, 212, 243, 273, .£04, _;:34, 



..TAN-.JUL 
65; .JUL-OEC, JAN 
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Ref.# D42 



inSltg" INTEL * USER'S LIBRARY SUBMITTAL FORM 

D4004 D4040 D8008 13 8080 D3000 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



TERM I NET* 1200 

Software Interface for Termfnet* 1200 



MDS-80Q A TERM I NET* 1200 with Punch (Note: Hardware modification 
required to get MDS to operate at 1200 Baud) 



No additional software required 



None 



1. Provides necessary fill characters after Line-Feed 

2. Provides necessary time delay after Form-Feed 

3. Provides necessary time delays for paper punch to operate 



l Req T.M. 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

ISIS 8080 MACRO ASSEMBLER VI 1 



Programmer: 

D. Brenneman, 



Company: 

— General Flftrtrir 



Address: 

GE Prix/ft 



City: 

Waynesboro 



State: 
VA 



77980 



Intel Corporation. 1976 



6/8/77 



98 034C 

7- J 22 



Ref:# D43 



■nSlte INTEL<> "SERS LIBRARY SUBMITTAL FORM 

□ 4004 D4040 D8008 &8080 03000 □ Other 



Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



Program TERM I NET* 300 

Title 



Provide interface between Term i net* 300 (at 300 Band) and 
MDS800 



No additional (however, the MDS must be modified to operate 
at 300 Band) 



No additional 



Provides the required 9 fill characters after each line-feed. 
Provides 2.5 seconds delay after each form-feed. 



. 1 


Registers Modified: 


Programmer: 

D. Brenneman 


RAM Required: 


Company: 

General Electric 


ROM Required: 


Address: 

GE Drive 


Maximum Subroutine Nesting Level: 


City: 

Waynesboro 


Assembler/Compiler Used: 
ISIS 8080 MACRO ASSEMBLFR Yl 1 


State: 

VA . ??Qftn I 


© lnt«l Corporation. 1976 


6/8/77 


98 034C 
7-124 
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r- 606 



00F5 

0001 
0002 

00F4 

000 D 
000C 

0£10A 
"81E 
815 
818 
: 81B 
FE3B 

0040 
000 S 
0008 
0003 
0001 



F600 _slB0Fb 

"•503 0E01 

J85 114AF6 
F608 CD1EF8 



REF. NO. D43 

PROGRAM TITLE TERM I NET* 300 



TITLE -TN300 2 7 77 DB'" 

THIS IS A RAM RESIDENT SOFTWARE DRIVER 
FOR TERM I NET 300 

PROVIDES FILL CHARACTERS AFTER LINE-FEED 
PROVIDES TIME DELAV AFTER FORM-FEED 



CREATES THESE ISIS FILES: 



LI 
II 
01 
PI 



USER LIST DEVICE 

USER CONSOLE INPUT 

USER CONSOLE OUTPUT 

USER PUNCH <FOR PAPER TAPE OUTPUT > 



* :+::+::+::+: :+: :+::+::+::+::+::+::+: :+: :+::+::+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+::+: :+: + :+ :: + :: + :: + :: + :: +: : + : :+::+: : +: : +: : +: : +::+::+::+: 

ORG 0F600H .; FOR 65K MDS SVSTEM 
PARAMETER DEF I N I T I ONS 



TTVS 

TBE 

RBR 

TTVDP 

CR 

FF 

LF 

IODEF 

IOCHK 

IOSET 

MEMCK 

DELAV 

ISIS 

EXIT 

CONS 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



8F5H 
1 

0F4H 
ODH 
OCH 
OAH 



OF 
OF 
OF 
OF 



81EH 
815H 
818H 
81BH 

0FE3BH 

40H 



CRTMSK EQU 
CRTDEV EQU 

START: LXl 

MVI 
LXI 
CALL 



TTV STATUS 

TRANSMIT BUFFER EMPTV 

RECEIVE BUFFER READY 

TTY DATA PORT 

CARRIAGE RETURN 

FORM-FEED 

LINE FEED 

MONITOR CALL 

MONITOR CALL 

MONITOR CALL 

MONITOR CALL 

1. MS DELAY IN MONITOR 

ISIS SYSTEM CALL 

EXIT CALL ID 

CONSOLE CALL ID 

CONSOLE DEVICE MASK 

ASSIGN CRT AS DEVICE 



bP, bTACK+16 



DEFINE USER STACK 



C, 1 

D, C01 
I ODEF 



INSTALL USER CONSOLE OUT 
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PRGE 2 



F60B 0E06 
F60D 114AF6 
F610 CD1EF8 

F613 0E0U 
F615 117BF6 
F618 CD1EF8 

F61B 0E07 
F61D 1185F6 
F620 CD1EF8 

F623 0E84 
F625 114AFS 
F628 CD1EF8 



F62B CD15F8 
F62E E683 
FO0 FE01 
53:2 CR42F6 



F635 0EE3 
F637 CD18F8 
F63R 0E08 
F63C 118EF6 
F63F CD4000 

F642 0E03 
F644 1192F6 
F647 CD4000 



F64R 
F64C 
F64E 
F651 
F652 
F654 
F656 
F658 
-•S5B 
i5D 
F65E 
F€-5F 



DBFS 

E601 

CR4RF6 

79 

D3F4 

E67F 

FE0C 

CR6CF6 

FE0R 

C0 

C5 

0609 



CRT 



POl 
COl 
LOl 



MV I 
LXI 
CRLL 

MV I 
LXI 
CRLL 

MV I 
LXI 
CRLL 

MVI 
LXI 
CRLL 



C 6 
D, LOl 
IODEF 

C.. 
D, CI1 
I ODEF 

C 7 
D, CS1 
IODEF 

C, 4 

D, POl 
IODEF 



INSTALL USER LIST DEVICE 



INSTALL USER CONSOLE IN 



INSTALL USER CONSOLE STATUb 



INSTALL USER PUNCH 



CHECK WHICH DEVICE IS COLD START CONbOLL 



CALL 
AN I 
CP I 
•JZ 



IOCHK 
CRTMSK 
CRTDEV 
CRT 



MONITOR CALL 
CHECK IF CRT 



DO NOTHING 

CONSOLE IS TERM I NET, INSTALL USER CONSOLE 

MONITOR CONSOLE 
ISIS CONSOLE 



MVI 

CALL 

MVI 

LXI 

CALL 



C, 0E3H 
IOSET 

C, CONS 

D, KBLK 
ISIS 



MVI 
LXI 
CALL 



IN 

AN I 

•JZ 

MOV 

OUT 

AN I 

CPI 

•JZ 

CPI 

RNZ 

PUSH 

MVI 



C, EXIT 

D, EBLK 
ISIS 



TTVS 

TBE 

COl 

A, C 
TTVDP 
7FH 
FF 
FFD 
LF 

B 

B, 9 



RETURN TO ISIS 

OUTPUT TO PUNCH 

OUTPUT TO CONSOLE <IF TTV> 

OUTPUT TO LIST DEVICE 

CHECK USART XMIT STATUS 



OUTPUT CHARACTER 
STRIP PAR I TV BIT 
LOOK FOR FORM FEED 
FORM FEED DELAV 
LOOK FOR LINE FEED 



NUMBER OF FILL REQUIRED 
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F661 


0E7F 




MVI 


C, 7FH 


F663 


CD4AF6 


FILL: 


CALL 


ecu 


F666 


05 




DCR 


B 


F667 


C263F6 




JNZ 


FILL 


F66A 


Cl 




POP 


B 


F66B 


C9 




RET 




F66C 


C5 


FFD : 


PUSH 


B 


F66D 


01C409 




LXI 


B, 2500 


F670 


CD3BFE 


FFDL : 


CALL 


DELAV 


F673 


OB 




DCX 


B 


F674 


7 A 




MOV 


A, B 


F675 


Bl 




ORA 


c 


F676 


C270F6 




•JNZ 


FFDL 


F679 


Cl 




POP 


B 


F67A 


C9 




RET 





USING DELETE AS FILL 
OUTPUT FILL CHARACTER 



1. MS DELAV IN MONITOR 



F67B DBFS 
F67D E602 

57F CA7BF6 
r-682 DBF4 
F684 C9 



CI1 



KEYBOARD INPUT ROUTINE 



IN 
AN I 
JZ 
IN 
RET 



TTYS 
RBR 
CI1 
TTYDP 



F685 DBFS 
F687 E602 
F689 3EO0 
F68B C8 
F68C 2F 
F68D C9 



CS1 : 



CONSOLE STATUS ROUTINE 



IN 

AN I 

MVI 

RZ 

CMA 

RET 



TTYS 
RBR 
A, 



F68E 
F690 
F692 
F694 
F698 


94F6 

99F6 

9EF6 

3A49313A 

20 


KBLK: 

EBLK: 
INPUT: 


DW 
DW 
DW 
DB 


INPUT 
OUTP 
KSTAT 
- : 11: 


F699 
F69D 


3A4F313A 
20 


OUTP : 


DB 


- : 01 : 


F69E 




KSTAT: 


DS 


2 


F6A0 


A0F6 


STACK : 


DW 


* 


S 00 






END 


START 



PARAMETER BLOCK FOR ISIS CONSOLE ASSIGNMENTS 



POINTER TO INPUT DEVICE STRING 
POINTER TO OUTPUT DEVICE STRING 
POINTER TO STATUS WORD 
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Ref.# D44 



falsity INTEL * USERS library submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8O08 H8080 D3000 □ Other. 



(use additional sheets if necessary) 



Sets Horizontal Tabs on TERM I NET 



MDS 800 System with MDS-DOS and TERM I NET* 



No additional software required 



None 



Horizontal Tabs on connected TERM I NET* are set at 
every 8 positions for this submittal 



*Reg T.M. 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
ISIS 8080 MACRO ASSEMBLER V I . I 



Programmer: 

D. Brenneman 



Company: 

General Electric 



Address: 

GE Drivfi 



City: 

Waynesboro 



State: 

VA 22980 



lnt«l Corporation, 1976 



6/8/77 



98 034C 
7-130 



II J S0SQ MACRO ASSEMBLER, VI. 1 
SETHT 1/18/77 DB 
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.; REF. NO. D44 

; PROGRAM TITLE SETHT 



00F5 

0001 

00F4 

001B 
000D 
0009 
0040 

F400 



F40A 4E 
F40B CD38F4 
F40E 23 
F40F ID 
F410 C20AF4 

F413 1E08 

F415 0E20 

F417 CD38F4 

F41A ID 

F41B C217F4 

F41E 2B 
F41F 2B 
F420 1E02 
F422 15 
F423 C20AF4 

F426 OEOD 
F428 CD38F4 

"42B 21FEFF 

f2E S3 
F42F E5 
F430 EB 



TITLE -SETHT 1/18/77 DB' 

,• SETS HORIZONTAL TABS ON TERM I NET AT EVERV 8 POSITIONS 



TTS 
TRDV 
TTO 
ESC 
CR- 
EDIT 
ISIS 



F40O 3154F4 START: 

t@3 2143F4 
K406 IbOE 
F408 1E05 



LI: 



L2 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

ORG 

Ltfl 

LXI 
MVI 
MVI 

MOV 
CALL 
I NX 
DCR 
JNZ 

MVI 

MVI 

CALL 

DCR 

JNZ 

DCX 
DCK 
MVI 
DCR 
•JNZ 

MVI 
CALL 

LXI 
DAD 
PUSH 
XCHG 



0F5H 

1 

0F4H 

1BH 

ODH 

40H 



TTV STATUS 

TRANSMIT BUFFER READV 

TTV DATA PORT 

ESCAPE KEV 

CARRIAGE RETURN 



0F400H 

SP, STACK+12 



H, TBL 

D, 14 

E, 5 

C, M 

TTVOU 

H 

E 

LI 

E, 8 
C, '' - 
TTVOU 
E 
L2 

H 
H 

E, 2 
D 
LI 

C, CR 
TTVOU 

H, -2 

SP 

H 



NUMBER OF SETTINGS 



NUMBER OF SPACES BETWEEN SETTINGS 



7-132 



IL i. 8080 MACRO ASSEMBLER, VI. 1 PRGE 2 

SETHT 1/18/77 DB 



F431 6E09 
F433 CD400O 
F436 FB 
F437 76 

F438 DBF5 TTVOU 

F43A E601 

F43C CA3SF4 

F43F 79 

F440 D3F4 

F442 C9 

F443 1B320D1B TBL : DB ESC, ' 2S CR, ESC, -1 
F447 31 

STACK : 

F400 END START 



MVI 


C, EXIT 


CALL 


ISIS 


EI 




HLT 




IN 


TTS 


AN I 


TRDV 


•JZ 


TTVOU 


MOV 


A, C 


OUT 


TTO 


RET 
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Ref.#D45 



insite INTEL: USERS library submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/40 D8008 08080 D8048 D8085 D3000 D Other. 



(use additional sheets if necessary) 



GRAPH 

Plots on console a graph of one variable as well as axes 
and a grid. 



Teletype (or slmi lar) 



'Console Output' subroutine 



A block of memory holding data bytes to be plotted, 



A graph on console 



Registers Modified: 
Al I 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
MPS Macro Assemb I e r 



Programmer: 

Norm HamphP 



Company: 

City of Vanrniivp r 



Address: 

453 W. 17th Av/p 



City: 

Vancouver 



State: 

B.C. Canada V5Y 1V4 



8/8/77 



Intel Corporation, 1976 



98 034 D 



7- 1 34 



I-. 



8089 MACRO ASSEMBLER, VI. 1 



PAGE 1 



; REF. NO. D45 
.PROGRAM TITLE GRAPH 



SUBROUTINE GRAPH 



THE 
ONE- 
THE 



A GRAPH OF ONE FUNCTION 
INDEPENDANT VARIABLE <X> INCREASES 
DATA TO BE PLOTTED IS TO BE STORED 
V COORDINATES, THE FIRST 
DATA BVTE SHOULD BE FOLLOWED 



•BVTE 
LAST 



THIS SUBROUTINE WILL PLOT 

OF ONE VARIABLE WHERE THE 

AT A FIXED STEP SIZE. 

IN MEMORY AS A SET OF 

CORRESPONDING TO X=0. 

BY OFFH. 

THE GRAPH IS PLOTTED WITH Y TO THE RIGHT AND X DOWNWARDS A ^ET 

OF AXEb IS DRAWN, WITH MARKERS AT EACH 5TH DIVISION. IN ADDITION 

A GRID IS PLOTTED - BUT TO SAVE PLOTTING TIME, ONLY TO THE LEFT 

OF THE FUNCTION. THE Y-AXIS IS DRAWN ONLY TO 

60 SPACEb. HOWEVER, Y-VALUES MAY BE PLOTTED UP TO A MAXIMUM OF 

128. THE X-AXIS AND X- VALUES ARE UNLIMITED. 

EACH CALL TO GRAPH PRODUCES ONE LINE OF OUTPUT. THEREFORE, THE 

USER MAY NUMBER THE AXES AS HE PLEASES. AFTER PLOTTING THE LAST 

DATA BYTE, GRAPH RETURNS WITH THE CARRY FLAG SET TO INDICATE 

COMPLETION TO THE USERS CALLING PROGRAM. ON FIRST CALL TO GRAPH 

H AND L SHOULD HOLD THE STARTING ADDRESS OF THE DATA TABLE, AND 

E SHOULD HOLD OFFH. 

REGISTERS ARE USED AS FOLLOWS: 

A - GENERAL 

B - RECEIVES Y-COORDINATE FROM MEMORY, THEN DECREMENTED TO O 

C - HOLDS CHARACTER TO BE PRINTED 

D - ON FIRST CALL, IS A Y-AXIS COUNTER, RANGING FROM -1 TO 4 

- ON SUBSEQUENT CALLS, IS A Y-COORD. COUNTER, RANGING FROM O 
E - ON FIRST CALL, A Y-AXIS SPACE COUNTER, INITIALLY 61 

- ON SUBSEQUENT CALLS, A X-COORD. COUNTER, RANGING 8 TO 5 
H, L - POINTER TO CURRENT DATA BYTE 



F889 

000D 

800A 
8108 

0100 1C 

0101 C23A81 
0104 113DFF 
010? 46 
"108 05 

JL09 FA2201 
010C 14 
010D C21501 



CO 
CR 
LF 



GRAPH 



GR81 : 



EQU 


0F8O9H 




EQU 


ODH 




EQU 


OAH 




ORG 


00100H 




INR 


E 


; CHECK- 1ST LINE? 


JNZ 


GR05 


.: NO 


LXI 


D, 0FF3DH 


; YES 


MOV 


B, M 


• ,3 ET y-COORD. 


DCR 


B 


.; CHECK- REACHED Y YE 


,TM 


GR03 


.; YES- JUMP 


INR 


D 


.; I NCR. SPACE COUNTER 


•JNZ 


GR02 
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0110 0E2B 
0112 C32801 

0115 0E2D GR02: 

0117 7A 

0118 D604 
011A C21F01 
011D 2F 
011E 57 
011F C32801 

0122 0680 GR03 : 
0124 0E58 

0126 14 

0127 23 

0128 CD09F8 GR04 : 
012B ID 

012C C20801 
012F 0E0D 
0131 CD09F8 

134 0E0A 
tH36 CD09F8 
0139 C9 

013A 16FF GR05: 
013C 46 
013D 04 
013E C24301 

0141 37 

0142 C9 

0143 05 GR06 : 

0144 7B 

0145 D605 
0147 C24B01 
014A 5F 

014B 05 GR10: 
014C FA7201 
014F 0E2O 

0151 14 

0152 C25801 
0155 0E2D 
0157 14 

"158 15 GR15 

x59 AF 
015A 83 
015B C26C01 



MVI 


C, ' + ' 


JMP 


GR04 


MVI 


c, ••-•' 


MOV 


A, D 


SUI 


004H 


JNZ 


*+5 


CMA 




MOV 


D, A 


JMP 


GR04 


MVI 


B, 80H 


MVI 


c, -x-' 


INR 


D 


I NX 


H 


CALL 


CO 


DCR 


E 


JNZ 


GR01 


MVI 


C* CR 


CALL 


CO 


MVI 


C, LF 


CALL 


CO 


RET 




MVI 


D, OFFH 


MOV 


B, M 


INR 


B 


JNZ 


GR06 


STC 




RET 




DCR 


B 


MOV 


A, E 


SUI 


005H 


JNZ 


GRIO 


MOV 


E, A 


DCR 


B 


JM 


GR25 


MVI 


C, "' 


INR 


D 


JNZ 


GR15 


MVI 


C, "-" 


INR 


D 


DCR 


D 


xra 


A 


ADD 


E 


JNZ 


GR20 



; EVAL D MODULO 5 



j PUT -1 INTO D 



.; INSURE B NEVER GETS -VE AGAIN 
.; PLOT V-COORD. 



; FINISHED V-flXIS? 
;NO- JUMP 



RETURN FROM 1ST CALL 

D=-l INDICATES "ON X AX I: 

GET DATA 

CHECK- FINISHED GRAPH? 

NO- JUMP 

VES- SET CARRV 



RESTORE DATA 

EVAL. LINE NO. MODULO 5 



.; AT V COORD. VET? 

.; VES 

.; NO- TVPE SPACE 

.; CHECK- ON AX I S? 

.; NO- JUMP 

; VES 



.; CLEAR flCC. 

.: CHECK- LINE NO. MOD 5=0' 

.; NO 
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015E 82 
015F C26401 
0162 0E2B 

0164 14 

0165 7A 

0166 D605 
0168 C26C01 
016B 57 

016C CD09F8 
016F C34B01 

0172 0E58 
0174 CD09F8 
0177 OEOD 
0179 CD09F8 
017C OEOA 
017E CD09F8 

0181 23 

0182 C9 



GR16 



GR20 



QR2S 



ADD 


D 


.; VES- CHECK- SPACES MOD 5=0 


JNZ 


GR16 


.; NO 


MVI 


c, •"+•• 


; VES 


INR 


D 




MOV 


A, D 


.: EVAL. SPACES MODULO 5 


SUI 


005H 




JNZ 


GR20 




MOV 


D, A 




CALL 


CO 


.: OUTPUT SPACE, -, OR+ 


JMP 


GRIO 




MVI 


C, "X- 




CALL 


CO 


.;PLOT ••>:•- 


MVI 


C, CR 




CALL 


CO 




MVI 


C, LF 




CALL 


CO 




INK 


H 




RET 







0008 



END 
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Ref.#D46 

INTEL" USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 08008 $8080 D3000 □ Other. 



(use additional sheets if necessary) 



Analog/Digital Polling Routine 



This program monitors a square-wave voltage connected to one bit 
of an 8-bit input port and counts the length of time the wave is 
in the low state (logic "0") during one complete cycle of the wave 



Input port and circuit (see attached Fig. 1) to convert an analog 
signal, such as temperature, to a square wave which varies from 
(logic "0") to +5 volts (logic "1"). 



No other software required except the calling program. Additional 
software can be used, however, to convert the output count from 
this program into other units such as temperature. 

Any one of the eight bits of input port 1 can be used for input 
of the square wave. Register B should contain a value to mask 
off all bits except for the desired bit. For example, if the 
square wave is connected to bit of input port 1, then B should 
contain a 01 H. 



Registers D and E contain the double word digital count. The 
output count is dependent on the microprocessor clock speed. The 
counting loop in the program requires 29 clock time periods; 
therefore for a 2 MHz clock frequency, the output count resolution 
is 14.5 microseconds per count. 



Registers Modified: 

A, B, D, E 


Programmer^ lliam G. Delinger 
Richard L. Petkiewicz 


RAM Required: 

None 


Northern Arizona University 


ROM Required: 

17H Bytes 


Address: physics Department Box 6010 


Maximum Subroutine Nesting Level: 




City: Flagstaff 


Assembler/Compiler Used: 

MAC80 


State: 

AZ 86011 



8/8/77 



© Intel Corporation, 1976 
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0000 

0000 DB01 

0002 A0 

0003 CA0000 

"106 DB01 

£1008 A0 
0009 C20600 
000C 110100 

000F DB01 

0011 A0 

0012 13 

0013 CA0F00 
0016 C9 

0000 



REF. NO. D46 

PROGRAM TITLE ANALOG/DIGITAL POLLING ROUTINE 

:+: 

* PROGRAM TITLE ANALOG/DIGITAL POLLING pnilTINE 

* REGISTER B SHOULD CONTAIN A MASK TO PIf:K m IT 

* THE DESIRED INPUT BIT. 

* OUTPUT COUNT IS RETURNED IN REGISTER PAIR DAE 

* OUTPUT COUNT RESOLUTION = 

* <29 CLOCK PERIODS;'/':: CLOCK FREQUENCE) 

:+: 

ORG 0000H 



POLL 



HIGH 



LOW 



IN 

ANA 

JZ 

IN 

ANA 

JNZ 

LXI 

IN 

ANA 

I NX 

JZ 

RET 

END 



1 

B 

POLL 

1 

B 

HIGH 

D, 0O01H 

1 

B 

D 

LOW 



i READ INPUT PORT 1 

.• MASK FOR DESIRED BIT 

; KEEP LOOPING IF BIT=0 

;READ INPUT PORT 1 AGAIN 

: MASK FOR DESIRED BIT 

J KEEP LOOPING IF BIT=1 

■ INITIALIZE COUNTER 

; READ INPUT PORT 1 AGAIN 

; MASK FOR DESIRED BIT 

• INCREMENT COUNTER 

.- KEEP COUNTING IF BIT=0 

i RETURN COUNT IN D&E 
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O +5V 



R = 500K 
at 25C 



C = O.lyF 




+5V- 



OV 



logic "1" 



logic "0' 



Input to one bit 
of microprocessor 
input port 



Fig. 1. The square wave produced by the 555 oscillator circuit 
is controlled by the temperature of the thermistor. 
During a complete cycle, the wave is in the low state 
(logic "0") for 0.693 RC seconds, where R is the resis- 
tance of the thermistor in ohms and C is the value of 
the timing capacitor in farads. 
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Ref.#U4/ 



■ ■ ■ TM 

insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/40 D8008 08080 D8048 D8085 D3000 D Other. 



(use additional sheets if necessary) 



Thumbwheel SBC 80/10 Test Program 

Reads in six BCD digits from Thumbwheel switch settings and display 
them on Console. Program is stored in a 2708 Prom on the SBC board, 



SBC 80/10 

TTY 

6 digit Thumbwheel 



SBC 80P Monitor (PROM) 



This program reads into memory 6 BCD digits from a Thumbwheel Switch 

2 digits per 8-Bit Port. The three ports 4, 5 & 6 (Address E8, E9 & EA) 
are configured together as 24 input lines (Mode 0). Each Port reads in 
2 BCD digits, which are first separated, then converted to HEX-ASCII. 
The converted digits are then typed on the TTY. Program breaks to 
monitor to enable new Thumbwheel setting. A new Thumbwheel setting 
can be read in by typing a Monitor G Command. 



Digits are typed out on console, along with a prompt from the 
program saying you may change switch settings. 



Registers Modified: 

Ail 



RAM Required: 

10 BYTES 4- Stark 



ROM Required: 

37f) RYTFt; 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

ISIS MACRO ASSEMBLER 



Programmer: 

R. 0. Christie 



Company: Dept. of Environment 
Inland Water Directorate 



Address: 

131 Greber Blvd. 



City: 

Pte Gatineau. P. 0. 



State: 

Quebec, Canada 



8/8/77 



lnte j Corporation. 1976 
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Ref.#D47 
OUTPUT SAMPLES 



SBC 80P MONITOR 
.G800 

SBC 80/10 TEST PROGRAM #1 

READS IN SIX BCD DIGITS FROM THUMBWHEEL SWITCH SETTINGS 
AND DISPLAYS THEM ON CONSOLE. 

777777 

YOU MAY CHANGE THUMBWHEEL SETTING. #0888 

.G 

123456 

YOU MAY CHANGE THUMBWHEEL SETTING. #0888 

.G 

456789 

YOU MAY CHANGE THUMBWHEEL SETTING. #0888 

.G 

987654 

YOU MAY CHANGE THUMBWHEEL SETTING. #0888 

.G 

999999 

YOU MAY CHANGE THUMBWHEEL SETTING. #0888 

.G 

000000 

YOU MAY CHANGE THUMBWHEEL SETTING. #0888 

.G 

024680 

YOU MAY CHANGE THUMBWHEEL SETTING. #0888 

.G 

135790 

YOU MAY CHANGE THUMBWHEEL SETTING. #0888 

.G 

123456 

YOU MAY CHANGE THUMBWHEEL SETTING. #0888 

•D3FE0,3FE2 Monitor used to display memory contents 

3FE0 21 43 65 — digit pairs from thumbwheel 

.DF# 

.D3FE3,3FE8 

3FE3 31 32 33 34 35 36 digits separated and converted to ascii. 
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; PROGRAM TITLE THUMBWHEEL SBC 80/10 TEbT PROGRAM 



; SBC 80/10 TEST PROGRAM #1 

;THIS PROGRAM READS INTO MEMORY 6 BCD DIGITS FROM A 

; THUMBWHEEL SWITCH 2 DIGITbPER 8-BIT PORT. 

•> THE THREE PORTS 4, 5, &6 'iiADDREbb E8.. ES 1 .. &EA.:' ARE 

; CONFIGURED TOGETHER AS 24 INPUT LINEb <MODE 0>. 

; EAr-H PORT READS IN 2 BCD DIGITS, WHICH ARE FIRbT 

i SEPARATED, THEN CONVERTED TO HEX-AbCII. 

;THE CONVERTED DIGITS ARE THEN TVPED ON THE TTV. 

;A NEW THUMBWHEEL SETTING CAN BE READ IN BY 

.; TYPING A — COMMAND — . 





, 






0300 




ORG 


0800H 


0800 31FF3F 




LXI 


SP, 3FFFH 


03FD 


CI 


EQU 


3FDH 


03FA 


CO 


EQU 


3FAH 


0400 


P. I 


EQU 


4O0H 


0403 


PO 


EQU 


403H 


2FE0 


STORE 


EQU 


3FE0H 


1.FE2 


CONV 


EQU 


3FE3H 


3:FE9 


COUNT 


EQU 


3FE9H 



TOP OF SBC80/10 RAM 

SETS UP 

USE OF 

MONITOR 

I/O ROUTINES 

BCD DIGIT STORAGE 

S CONVERTED DIGITS 

PASS COUNTER 



0803 218B08 
0806 3E24 

0808 4E 

0809 B'3 
080A CA1408 
080D CDFA03 

0810 23 

0811 C30608 

0814 00 

0815 00 



0316 3E9B 



CONSOLE SIGN-ON MEbbAGE— 



TYPE 



EXIT 



LXI 


H, SINON 


.; DISPLAY DATA ADDR 


MVI 


A, 24H 


.; STOP CHAR. 


MOV 


C, M 


; GET FIRST CHAR. 


CMP 


C 




JZ 


EXIT 




CALL 


CO 




I NX 


H 




JMP 


TYPE 




NOP 






NOP 







.-PORT CONF I GURAT I ON 

MVI A, 10011011B .; CONTROL WORD 
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0818 D3EB 


OUT 


OEBH 


.: CONTROL REG. ADDR. 




READ 

ART: LXI 


IN BCD DIGITS 
H, STORE 




081A 21E03F ST 




081D DBE8 


IN 


0E8H 


; FIRST BCD PAIR 


081F 2F 


CMA 






0820 77 


MOV 


M, A 




0821 23 


I NX 


H 




0822 DBE9 


IN 


0E9H 


.: SECOND PAIR 


0824 2F 


CMA 






0825 77 


MOV 


M, A 




0826 23 


I NX 


H 




0827 DBEA 


IN 


OEAH 


.; THIRD PAIR 


0829 2F 


CMA 






082A 77 


MOV 


M, A 




082B 00 


NOP 






} 


SEPARATE BCD DIGIT 


5 & CONVERT 


082C 21E93F 


LXI 


H, COUNT 


i PASS COUNTER#l 


32F 3603 


MVI 


M, 3 


; 3 PASSES 


0831 21E03F 


LXI 


H, STORE 


i BCD DIGIT STORAGE 


0834 11E33F 


LXI 


D, CONV 


: CONVERTED DIG. STORAGE 


0837 0E30 


MVI 


C, 30H 


; USED FOR CONVERSION 


0839 060F NE: 


<T : MVI 


B, OFH 


; USED FOR SEPARATION 


083B 7E 


MOV 


A, M 


BCD PAIR 


083C AO 


ANA 


B 


SEPARATE-:: ZERO 4 MSB. > 


083D 81 


ADD 


c 


CONVERT 


083E 12 


STAX 


D 


STORE IN CONV 


083F 13 


I NX 


D 




0840 7E 


MOV 


A, M 


SAME PAIR 


0841 OF 


RRC 




SHIFT SECOND DIGIT - 


0842 OF 


RRC 




OVER TO LOW ORDER - 


0843 OF 


RRC 


j 


BITS TO ENABLE - 


0844 OF 


RRC 




CONVERSION. 


0845 AO 


ANA 


B 


SEPARATE < ZERO 4 MSB. > 


0846 81 


ADD 


C 


CONVERT 


0847 12 


STAX 


D 


STORE IN CONV 


0848 13 


I NX 


D 




0849 23 


I NX 


H 




084R E5 


PUSH 


H .; 


SAVE PRESENT CONV ADDR. 


084B 21E93F 


LXI 


H, COUNT .: 


PASS COUNTER #1 


084E 7E 


MOV 


A, M .; 


COUNT- 


084F 3D 


DCR 


A .; 


DOWN 


"S'50 C25608 


•JNZ 


MINUS ; 


NOT FINISHED. 


353 C35B08 


JMP 


SHOW .; 


FINISHED. 


0856 77 MINUS: MOV 


M, A .; 


SAVE NEW PASS COUNT. 


0857 El 


POP 


H .; 


RESTORE PRESENT CONV ADDR 
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0858 C3-<:908 
085B 00 



SHOW : 



JMP 
NOP 



NEXT 



; BACK FOR NEXT CONVERSION. 





i 


UU 1 KU 1 


L-UNVtK 1 L.L, 


\.t 1 " J J. 1 => IU 1 1 T 


085C 


&6®6 


MV I 


B, 6 


; SIX DIGITS 


085E 


21E33F 


LXI 


H, CONV 


; FIRST DIGIT 


0861 


4E TT'i 


r' : MOV 


C, M 




0862 


CDFA03 


CALL 


CO 




0865 


23 


I NX 


H 




0866 


05 


DCR 


B 




0867 


C26108 


JNZ 


TTV 


j OUTPUT FINISHED? 


086A 


0E0D 


MVI 


C, 0DH 


; CR 


086C 


CDFA03 


CALL 


CO 




086F 


0E0A 


MVI 


C ©AH 


; LF 


0871 


CDFA03 


CALL 


CO 




0874 


00 


NOP 










tf-=:t f 


OR NEW THI 


JMBUHEEL SETTING 



0875 211D09 LXI H, NEWTH 

378 3E24 THUMB: MVI A, 24H 

tf87A 4E MOV C, M 

087B B9 CMP C 

087C CA8608 JZ LEAVE 

087F CDFA03 CALL CO 

0882 23 I NX H 

0883: 1137808 JMP THUMB 

0886 00 LEAVE: NOP 



STOP CHAR. 



0887 CF 



0888 C31A08 



088B 20202020 SINON 
088F 20202020 
0893: 20202020 
0897 20202020 
089B 20202020 
089F 2020 
08A1 534243:20 
-"3A5 38302F31 
JA9 30205445 
08AD 53542050 
08B1 524F4752 



RST 1 

•JMP START 
-CONSOLE DATA— 
DB 



BREAK TO MONITOR TO ENABLE 
NEW THUMBWHEEL SETTING - 
THEN PROGRAM RESTARTS WITH 
NEXT G COMMAND. 



DB 



:.BC 80/10 TEST PROGRAM #1- 
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0885 


414D2023 




08 B9 


31 




08BA 


0D 


DB 


08BB 


0A 


DB 


08BC 


0A 


DB 


08BD 


52454144 


DB 


08C1 


5320494E 




08C5 


20534958 




08C9 


20424344 




©BCD 


20444947 




08D1 


49545320 




08D5 


46524F4D 


DB 


08D9 


20544855 




08DD 


4D425748 




08E1 


45454C20 




08E5 


53574954 




08E9 


43482053 




08ED 


45545449 




08F1 


4E475320 




08F5 


8D 


DB 


88F6 


0A 


DB 


3F7 


414E4420 


DB 


08FB 


44495350 




08FF 


4C415953 




0903 


20544845 




0907 


4D204F4E 




090B 


20434F4E 




090F 


534F4C45 




0912 


2E20 




0915 


0D 


DB 


0916 


0A 


DB 


0917 


0D 


DB 


0918 


8A 


DB 


0919 


24242424 


DB 


091D 


594F5520 NEWTH : 


DB 


0921 


4D415920 




0925 


4348414E 




0929 


47452054 




092D 


48554D42 




0931 


■j c 4t!4545 




0935 


4C205345 




0939 


5454494E 




093D 


472E 




09 3F 


24242424 


DB 


0000 




FNf: 



0DH 
0AH 
0AH 
-READS 



IN SIX BCD DIGITS 



•'FROM THUMBNHEEL SWITCH SETTING': 



ODH 
OAH 
•AND DISPLAVS 



THEM ON CONSOLE. 



ODH 
OAH 
ODH 
OAH 
••"**$:*••■ 
•VOU MAV 



CHANGE THUMBWHEEL SETTING. 



-'***:*:••■ 
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INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 S8080 D3000 □ Other. 



(use additional sheets if necessary) 



Calculate a calendar for any year. 

To generate and print on a list device or console a calendar for any operator 
specified year. 



8080 system with console device and optional list device 



Monitor console out (CO), console in (CI) and list out (LO) 



A year accepted from the console keyboard. 



See sample run 



Registers Modified: 



RAM Required: 
708-Hex 



ROM Required: 

Monitor I/O handlers or equal 



Maximum Subroutine Nesting Level: 



Asse 



%W c &<&Yif & 



Programmer: 



William R. Ort 



Company: 

Applied Data Communications 



Address: 
1509 E. McFadden 



City: 
Santa Ana 



State: 



CA 92705 



8/8/77 © lntel Corporation, 1976 
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Ref.#D49 



inSlte INTEL * USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D4004 D4040 D8008 #8080 D3000 D Other. 



(use additional sheets if necessary) 



String Manipulation Package 
See Attached Sheets 



8080 Computer 



No Special Software Required 



See Attached Sheets 



See Attached Sheets 



Registers Modified: 
All 



RAM Required: 
See Attached Sheets 



ROM Required: 

See Attached Sheets 



Maximum Subroutine Nesting Level: 
7 



Assembler/Compiler Used 
MDS-800 Assembler' 



ler\^ 



SIS- I MACRO 
Assembler V1.0 



Programmer: 
Frederick A. Stearns 



Company: 

Systems Consultants, Inc 

Address: 
3 255 Wing Street 



City: 
San Diego 



State: 
California 



92110 



7-154 



String Manipulation Package 



Synopsis 



The String Manipulation Package consists of four independent 
subroutines and two common utility routines whose purpose it 
is to manipulate character strings. Using these routines, it 
is possible to perform the following functions: 

- Extract and store substrings (SUBST) 

- Move the contents of one string (ASSGN) to 
another 

- Compare one string to another (CMPST) 

- Delimit a substring on the basis of inclusion 
in a set (DELMT) 

Each string may be up to 255 characters long and is proceeded 
by a two byte prefix. The first byte contains the maximum 
length, 1 to 225; the second byte contains the current length, 
to 255. 

Parameters are passed to the procedures by writing their ad- 
dresses after the procedure call. The utility routines trans- 
fer the information to the subroutines and skip over the para- 
meters upon return. 
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Ref.#D50 



INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 &8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



Output Message Generator 

This program assembles messages and outputs them to the monitor's 
CO or LO device. The fixed part of the message is provided by 
a unique message table. The variable part(s) of the message 
are provided by the calling program which in addition, passes 
the number of the desired message. 

One CO-device (CRT,TTY) and/or one LO-device (Line Printer) . 



Monitor (CO and LO routines) 



Address of the parameter list in B/C. 
Contents of the parameter list: 

- 1st byte: Message number in binary 

- 2nd to last byte: insertions (variable parts of the message! 

in ASCII and terminated with an '©• char 
The number of insertions must match the 
number of insertions required in the 
message definition in the message table. 
(See also the comments in the listing) 

A message (one or more lines) output to the CO or LO device. 



Note 

There are two modules. One is the OMG, the other one is the 
table containing the definition of the messages, i.e. their 
fixed part and the indications where the text segments provi- 
ded by the calling program have to be inserted. 
A third module allows to test the OMG by entering the para- 
meter list on the Cl-device. This module also shows how the 
OMG has to be called. 



Registers Modified: 



none 



RAM Required: 



ROM Required: 



83 Bytes + Message Table 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



ASM80 



Programmer: R# Qenoud 



Company: MicrQ Control 



Address: 5107 Schinznach-Dorf 
— Switzerland 



City: 



State: 



© Intel Corporation, 1976 



98-034D 
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Ref.#D51 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/4040 D8008 08080 D8048 D8085 D Other SRHflfi/ 1 (use additional sheets if necessary) 



SBC 80P REAL TIME CLOCK 

MONITOR RESIDENT, REAL TIME CLOCK ROUTINE. 
PROVIDES TIME AND CALENDAR INFORMATION. 



50 HERTZ INPUT PULSES SOURCE, 



SBC 80P MONITOR VER 1. 



TIME: HOURS, MINUTES, SECONDS 
DATE: DAY, MONTH, YEAR. 



UPDATES DATE AND TIME COUNTERS (STORED IN BCD AS 
SEVEN BYTES STARTING AT LOCATION DBUF). 
DISPLAYS TIME AND DATE USING 'EXPANDED' MONITOR 
SPECIAL COMMANDS. 



Registers Modified: 



440NE 



RAM Required: 
7 BYTES 



ROM Required: 
418 BYTES 



Maximum Subroutine Nesting Level: 
5 



Assembler/Compiler Used: 

MACRO ASSEMBLER VER 3.0 



Programmer: 
AVI KAHAN 



Company: 

NUCLEAR RESEARCH CENTER 



Address: 

P.O.B. 9001 



City: 

BEER-SHEBA 



State: 
ISRAEL 



© lnt«l Corporation, 1976 



98-0340 
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Ref.#D52 



insite " INTEL * USER , s library submittal form 

O4004 D4040 D8008 E8080 D3000 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



REAL TIME CLOCK SERVICE ROUTINE 

The program includes three routines. The first is used to initialize the 
system RTC and to store date and time into the appropriate buffer The 
second is to write out the date and time on TTY. The third services the 
RTC interrupt. 



System real time clock 



ISIS-II V2.2 
MDS MONITOR V2.0 



Example: 

DATE: 06/07/77 for JULY 6/77 

TIME: 15:05:00 for HOUR :MIN: SEC 

Note that leap year is considered. With LEAP = 80H, 

the program is good until the end of 1983 by which 

time LEAP must be set equal to 84H. 



Time will be stored in appropriate buffer, i.e. from SEC to YEAR in buffer. 



Registers Modified: 



ALL 



RAM Required: 



244H bytes 



ROM Required: 



Maximum Subroutine Nesting Level: a 



Assembler/Compiler Used: 

ISIS-II 8080/8085 ASSEMBLER VI. 



Programmer: 



J.L. MARCEL LALONDE 



Company: 



AGRICULTURE CANADA 



Address: ENGINEERING RES. SERV., 
RESEARCH BRANCH 



City: OTTAWA, ONT. K1A 0C6 



State: 



ONTARIO 



© Intel Corporation. 1976 



98 034 C 
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JnsSt^ " INTEL * RISER'S LIBRARY SUBMITTAL FORM 



D 4004/4040 D8008 08080 D8048 D8085 D Other. 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



(use additional sheets if necessary) 



FIELD 

FIELD is a subroutine that provides zero suppression, check protection 
floating dollar signs, and punctuation and text insertion which is 
useful in report preparation in both business and scientific application*; 
a source value is edited into a present mask. Edit control characters 
in the mask control value insertion. Non-edit control characters in the 
mask remain in the edited result. 

8080 System 



None 

DE = Low address of value to be edited 
HL = Low address of edit mask 
B = Length of edit mask 

After 

DE = High address of value +1 
HL = High address of edit mask +1 
B = Zero 



Output 
Results 


EXAMPLES: 




VflLUE 

MASK 

RESULT 


00000022 

22 




VALUE 

MASK 

RESLiT 






VALUE 

MASK 

RESULT 


07S9012245 
$$, $t$, $*#, ## 

*?, S96, 122. 45 



"ALUE 6783812245 
MASK $>.. >», »#. ## 

RESULT $t7, 896, 122. 45 

VflLUE 0008122456 

MASK **, ***. , **t DOLLARS AND ** CENTS 

RESULT *****L 224 DOLLARS AND 56 CENTS 

VALUE 6e9LL51212PC1224GETTV; .T 

MASK OV» ^W/A t'-7 >>-^-> vw^^ 

RESULT (Cm LL5-1212 EXT. PC-1224 GETTY, J. 



Registers Modified: 
ABDFHI 



RAM Required: 

3+ Ma^k I Png+h 



ROM Required: 
B6 



Maximum Subroutine Nesting Level: 

None 



Assembler/Compiler Used: 
8080 Macro Assembler 



Programmer: 

Austin C. Nestor 



Company: 

Coordinated Syst ems Corp. 



Address: 

7300 Industrial Park 



City: 

Pennsauken 



State: 

NJ 08110 



© Intel Corporation, 1976 

12/6/77 



98-0340 
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REF. NO. D53 
PROGRAM NAME: FIELD 

CREATED: MARCH 3, 1977 

REVISED: 

BV COORDINATED SVSTEMS CORPORATION 

ED I T I NG CONVENT I ONS : 

A SOURCE STRING IS EDITED INTO A PRESET MASK 
ALL EDIT MASKS AND DATA ARE ASCII CHARACTERS 
ONLV LEADING ASCII ZEROS ARE NOT SIGNIFICANT 
ENCOUNTERING A . OR # IN A MASK MAKES THE CORRESPONDING 

CHARACTER AND ALL FOLLONING CHARACTERS SIGNIFICA 
IF A MASK CHARACTER IS NOT . , $ > * QR # u is LEFT UNA 
AFTER A SIGNIFICANT CHARACTER HAS BEEN ENCOUNTERED * > * 

EQUIVALENT TO # 
$ MEANS INSERT A $ BEFORE THE FIRST SIGNIFICANT CHARACTE 

OUT ALL * > , BEFORE THE FIRST SIGNIFICANT CXHAR 
> MEANS BLANK OUT ALL > , BEFORE THE FIRST SIGNIFICANT C 

* MEANS INSERT A * OVER * , BEFORE THE FIRST SIGNIFICANT 
, MEANS LEAVE THE , IF A SIGNIFICANT CHARACTER HAS BEEN 

. MEANS LEAVE A . IN THE DESTINATION FIELD 

# MEANS COPV THE NEXT SOURCE CHARACTER 

>»»»»»»»» SEE EXAMPLES IN THE TEST SECTION BELOW ««« 



IN 



OUT 



0968 




EDITF: 


ORG 


8988 


AF 




XRA 


8981 


32B989 




STA 


8984 


32BA89 




STA 


8987 


32BB89 


EDITQ: 


STA 


J8A 


7E 




MOV 


898B 


FE24 




CPI 


89 8 D 


CA2F89 




JZ 



DE = SOURCE DIGIT FIELD IN ASCII, LEFT 
HL = DESTINATION <MASK> FIELD, LEFT 

B = LENGTH OF MASK FIELD 
DE = NEXT SOURCE DIGIT 
HL = END OF MASK + 1 

B = 8 

C IS PRESERVED 



8988H 

A 

FDF 
SDF 
ASF 

A, M 

•' $ •- 

DOLR 



RESET FLOATING * FLAG 
RESET SIGNIFICANT DIGIT- 
RESET ASTERISK FLAG 

GET MASK BVTE 



FOUND F 
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PRGb 



0916 FE3E 




CPI 


■' > '' 


0912 CR5D09 




J Z 


ZSR 


0915 FE2C 




CP I 


", '" 


0917 CRS409 




J 2 


COMR 


091R FE2E 




CP I 




09 1U UHohtiy 




•J Z 


DOTR 


091F FE23 




CPI 


- # - 


0921 CR9E09 




■JZ 


N I NR 


0924 FE2R 




CP I 


••• :+: ••" 


0926 CRRE09 


EDITH: 


■JZ 


RSTR 

IF PRC 


0929 23 




I NX 


H 


092R 05 




DCR 


B 


09 2B C20R09 




J HZ 


EDITG 


092E C9 


DOLR : 


RET 




092F 3ABA09 




LDR 


SDF 


0932 B7 




ORR 


R 


0933 CR3C09 


D0LR1 : 


JZ 


DOLR 3 


0936 1R 


D0LR2 : 


LDAX 


D 


0937 13 


DGLRfl : 


I NX 


D 


0938 77 




NOV 


M, R 


0939 C 32909 


DOLR 3 : 


J MP 


EDITH 


093 C 1R 




LDRX 


D 


09 3D FE30 




CP I 


•'' "' 


093F CR4C09 




JZ 


DOLR 5 


0942 CD5409 


D0LR4 : 


CRLL 


D0LR6 


0945 3D 




DCR 


R 


0946 32BR09 




STR 


SDF 


0949 C 3 360 9 


D0LR5 : 


J MP 


DOLR1 


094C 3E20 




NVI 


R, " 


094E 32B909 




STR 


PDF 


0951 C33 709 


D0LR6 : 


JMP 


D0LR2 


0954 2B 




DCX 


H 


0955 3624 




MVI 


M, ••*••• 


0957 23 




I NX 


H 


0958 RF 




XRR 


R 


"'959 32B909 




STR 


FDF 


95C C9 




RET 





IF PROGRRN FELL THRU, LEAVE MASK BYTE IN REbULT 



IF MORE MASK TO BE 
PROCESSED, DO NEXT BYTE 
ELSE, EXIT 



IF NO SIGNIFICANT DIGIT HRS BEE 
EXAMINE THIS DIGIT 

GET THIS DIGIT 

ADVANCE TO NEXT SOURCE DIGIT 

STORE DIGIT OVER MASK BYTE 
PROCESS NEXT DIGIT 

GET THIS DIGIT 
IF IT IS A O 

SUPRESS IT 
INSERT THE * 1 LOCATION LEFT 



SET THE SIGNIFICANT DIGIT FOUND 
STORE DIGIT 

GET A SPACE 

SET FLOATING DOLLAR FLAG 

OVER WRITE MASK DIGIT 

BACK UP ONE LOCATION 

INSERT THE * 

ADVANCE TO MASK DIGIT 

RESET FLOATING DOLLAR FLAG 



ZSR : 



095D 3ABA09 



LDA 



SDF 
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RAGE 



0960 B7 




ORA 


A 


0961 C23609 




JNZ 


DOLR1 


0964 1A 




LDAX 


D 


0965 FE30 




CP I 


••• ••■ 


0967 CA7709 




■JZ 


ZSR1 


096A 3AB909 




LDA 


FDF' 


096D B7 




ORA 


A 


096E CA4509 




■JZ 


D0LR4 


0971 CD5409 




CALL 


D0LR6 


0974 C34509 


ZSR1 : 


JMP 


D0LR4 


0977 13 


ZSR2 : 


I NX 


D 


0978 3ABB09 




LDA 


ASF 


097B B7 




ORA 


A 


097C C2B409 




•JNZ 


ASTR1 


097F 3E20 




MVI 


A, -' 


0981 C33:809 


COMR : 


JMP 


DOLRA 


0984 3ABA09 




LDA 


SDF 


0987 B7 




ORA 


A 


?88 CA7809 




•JZ 


ZSR2 


098B C32909 


DGTR : 


JMP 


EDITH 


098E 32BA09 




STA 


SDF 


0991 3-AB909 




LDA 


FDF 


0994 B7 




ORA 


A 


0995 CA2909 




JZ 


EDITH 


0998 CD5409 




CALL 


D0LR6 


099B C32909 


NINR: 


JMP 


ED I TH 


099E 32BA09 




STA 


SDF 


09A1 3AB909 




LDA 


FDF 


09A4 B7 




ORA 


A 


09 A 5 C A 3 6 09 




JZ 


DOLR1 


09A8 CD5409 




CALL 


D0LR6 


09 AB C33609 


ASTR : 


JMP 


DOLR1 


09AE 32BB09 




STA 


ASF 


09B1 C35D09 


ASTR1 : 


JMP 


ZSR 


09B4 3E2A 




MV I 


A, -+••' 


09B6 C33809 


FDF : 


JMP 


DOLRA 


09B9 00 


SDF : 


DB 


OH 


"9BA 00 


ASF : 


DB 


OH 


09BB 00 




DB 


OH 



IF A SIGNIFICANT DIGIT HAS BEEN 

COPV THIS DIGIT, ELSE 
GET THIS DIGIT 
IF IT IS A O 

SUPRESS IT 

IF NO FLOATING * REQUIRED 
SET SIGNIFICANT DIGIT FOUND FL 
INSERT THE * 
AND STORE THE DIGIT 



IF CHECK PROTECT IS IN EFFECT 
GET AN ASTERISK, ELSE 

GET A SPACE 
OVER WRITE MASK BVTE 



IF NO SIGNIFICANT DIGIT HAS BEF 
BLANK OUT MASK BVTE 
ELSE LEAVE THE COMMA 

SET SIGNIFICANT DIGIT FOUND FLA 

IF A FLOATING * IS NOT REQUIRED 

LEAVE THE DECIMAL POINT 

ELSE INSERT THE $ THEN 

LEAVE THE DECIMAL POINT 

SET SIGNIFICANT DIGIT FOUND FLA 

IF A FLOATING * IS NOT REQUIRED 
STORE THE DIGIT, ELSE 
INSERT THE * 
AND STORRE THE DIGIT 

SET THE CHECK PROTECT FLAG 
DO CHECK PROTECTION 

GET AN ASTERISK 
AND OVER WRITE THE MASK BVTE 

FLOATING DOLLAR FLAG 

SIGNIFICANT DIGIT FOUND FLAG 

CHECK PROTECT FLAG 
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TEST 



TEST 



TEST 



TEST 



TEST 



TEST 



TEST 



09BU '. 


3E3E2C3E 


0'3C8 : 


3E3E2C3E 


09C4 


3E3E 


0906 


242A2C2A 


09CA 


2A2R2C2A 


09CE 


2R232E23 


09D2 




09D3 


2A2A2C2A 


09D7 


2A2R2C2R 


09DB 


2A232044 


09DF 


4F4C4C41 


09E3 


52532041 


09E7 


4E442023 


09EB 


23204345 


09EF 


4E5453 


09F2 


24242C24 


09 F 6 


24242C24 


09FR 


24232E23 


09FE 


*c£ *£ 


09FF 


20243E2C 


0A03 


3E3E3E2C 


0A07 


3E3E232E 


0A0B 


2323 


0A0D 


283E3E3E 


0A11 


29203E3E 


0A15 


3E2D3E3E 


0A19 


3E3E2045 


©AID 


58542E20 


0A21 


3E3E2D3E 


0R25 


3E3E3E20 


0A29 


3E3E3E3E 


0A2D 


3E3E3E3E 


0A31 


3E3E3E3E 


0A35 


3E3E3E3E 


0A39 


3E3E3E 


0A3C 


30303030 


"A40 


30303233 


0A44 


30303030 


0A48 


: 30303030 



Tl: 



T2 



T3 



T4 



T6 



VI 



DB 



DB 



DB 



DB 



DB 



DB 



DB 



DB 



•+:+::+::+::+::+::+: $0. 08 



+ :+::+::+::+:!, 234 DOLLARS AND 56 CENT': 
:+::+:,:+::+::+:,:+::+:# DOLLARS AND ## CENT'. 



$■?.■ 890, 12.i. 45 



$67, 890, 123. 45 
$>, >», »#. ##- 



<689) LL5-1212 EXT. PC-1234 GETTY, J. 



5AUL 



00000023 



■' !: 
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0A4C 3038 



0A4E 


30303030 


0A52 


31323334 


0A56 


3536 



DB 



" 123456 "' 



0A58 303738: 
0A5C 303132: 
0A6€i 3435 



DB 



■'' 7 8 9 1 2 S 4 5 -' 



0A62 


S€>s7sSsS 


0A66 


30313233 


0A6A 


I.-.i 
l.-.l 


0A6C 


jSj.23340 


0A70 


4C353132 


0A74 


31325043 


0A78 


31323334 


0A7C 


47455454 


0A80 


592C204A 


0A84 


2E205341 


"188 


554C2020 


tfA8C 


202020 



DB 



DB 



6789012^:45-' 



609LL51212PC1234GETTV, J. SAUL 



0A8F 


113C0A 


0A92 


21BC09 


0A95 


060A 


0A97 


CD0009 


0A9A 


060D 


0A9C 


CD0009 


0A9F 


061F 


0AA1 


CD0009 


0AA4 


060D 


0AA6 


CD 000 9 


0AA9 


060E 


0AAB 


CD0009 


0AAE 


062F 


0AB0 


CD0009 


0AB3 


76 


i~ii.~ii.~ii.~i 





TEST 



SET THE 


FIELDS TO 


LXI 


D, VI 


LXI 


H, Tl 


MVI 


B, 10 


CALL 


EDITF 


MVI 


B, 13 


CALL 


EDITF 


MV I 


B, 31 


CALL 


EDITF 


MVI 


B, 13 


CALL 


EDITF 


MV I 


B, 14 


CALL 


EDITF 


MVI 


B, 47 


CALL 


EDITF 


HLT 





THE VALUES SHOWN 



GET SOURCE ADDRESS 
GET DESTINATION ADDRE! 
GET DESTINATION SIZE 
EDIT THE DATA 



END 
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insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/4040 D8008 08080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



SERIAL PROM PROGRAMMER 

Programs Intel 1K x 8 (2708) EPR0MS on Prompt-80 using an external 
serial input. 



Prompt 80 modified for RS-232c (300 Baud) monitor VI. 



External device must transmit to the Prompt-80 in Intel modified 
Hex Format. 



Data transmitted to Prompt-80 must be in Intel Hex Format (98-183A) 
modified to have frames 3-6 contain the start address of a 16 byte 
field in EPROM. 



A 16 byte Field in PROM is programmed and prompt of ASC II "L" 
sent to host device requesting next 16 bytes of data. 



Registers Modified: 
ALL 



RAM Required: 

17 Bytes 



ROM Required: 

Ifi^S Rytpc; (7708) 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

8080/8085 Macro Assembler V2.0 



Programmer: 
Michael C. Ebert 



Company: 
Domponent Specialties. Inc. 



Address: 
flSftS Homm PrrP Park Dr. 1590 



City: 

Houston 



State: 
Texas 



77036 



Intel Corporation, 1976 

12/6/77 



98-034D 
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00ED 
00EC 
00EC 

0001 

302 

fc.1040 

004 F 
0027 
003'B 
08C2 
0920 
2D00 
3D10 



REF. NO. D55 

PROGRAM TITLE SERIAL PROM PROGRAMMER 



PROGRAM NAME: SERIAL PROMPT-SO PROGRAMMER 

THIS PROGRAM ALLOWS THE USE OF AN INTEL PROMPT-wO 
WITH ANV TERMINAL OR DEVICE CAPABLE OF GENERATING 
DATA IN INTEL'S STANDARD HEX FORMAT AND HAS A 
SERIAL PORT. 

PROGRAM COMMANDS : 

S - PROGRAM AND VERIFV EPPOM 

A - VERIFV EPROM 
THESE COMMANDS ARE ENTERED ON THE HEX KEYBOARD 



TTC 

TXD 

RXD 

TXRDV 

RXRDV 

RESET 

MODE 

CMD 

ERR 

PROG 

CMPR 

BFR 

FLAG 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



OEDH 
OECH 
OECH 
1 

40H 

4FH 

27H 

2BH 

8C2H 

920H 

3D00H 

3D10H 



OC00 



ORG 0CO0H 

SET PROGRAM/VERIFY FLAG 







START : 






0C00 


C^060C 


XP : 


JMP 


XP2 


0C03 


C30B0C 


XC : 


JMP 


XC2 


0C06 


2EFF 


XP2 : 


MV I 


A, OFFH 


0C08 


C30C0C 




•JMP 


SAVE 


0C0B 


AF 


XC2 : 


XRA 


A 


0C0C 


32103D 


SAVE : 


blA 


FLAG 



PROGRAM USART FOR 16 BIT ASYNC FORMAT W/O PARITY 



0C0F 1 


:E40 


-•~:.±± C 


•3:ED 


ji3 : 


:E4F 


0C15 C 


•3ED 


0C17 2 


:E27 



MV I 


A, RESET 


OUT 


TTC 


MVI 


A, MODE 


OUT 


TTC 


MVI 


A, CMD 
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QC19 D3ED 









OUTf 


OCIB 
0C1D 
0C1F 


0E4C 
DBED 
E601 


RERDV : 
CO : 


MVI 

IN 

RNI 


0C21 
0C24 
0C25 


CR1D0C 

79 

D3EC 




J 2 

MOV 

OUT 



OUT TTC 

OUTPUT "L" COMMAND TO TERMINAL 



C, -L" 
7 TC 
TXRDV 
CO 
A, C 
TXD 



READ 16 BVTE DATA BLOCK FROM TERMINAL 



0C27 


CDR70C 


0C2R 


FE3R 


0C2C 


C2270C 


0C2F 


RF 


0C3O 


57 


0C31 


CD760C 


0C34 


FE10 


0C36 


C23B00 


"'39 


5F 


0C3R 


CD760C 


0C3D 


67 


0C3E 


CD760C 


0C41 


6F 


0C42 


E5 


0C43 


CD760C 


0C46 


FE00 


0C4S 


C23B00 


0C4B 


21003D 


0C4E 


CD760C 


0C51 


r' (' 


0C52 


cU- 


0C53 


ID 


9C54 


C24E0C 


0C57 


CD760C 


0C5R 


C23B00 


0C5D 


Dl 



RERD 



0C5E 211B0C 
0C61 E5 
0C62 21O03D 
0C65 E5 
"'"::66 210F3D 

J69 E5 
0C6R D5 
0C6B 3R103D 



RD2 



CRLL 


CI 


CPI 




JNZ 


RERD 


XRfl 


R 


MOV 


D, R 


CRLL 


BVTE 


CP I 


10H 


JNZ 


ERR 


MOV 


E, R 


CRLL 


BVTE 


MOV 


H, R 


CRLL 


BVTE 


MOV 


L, R 


PUSH 


H 


CRLL 


BVTE 


CPI 





JNZ 


ERR 


LXI 


H, BFR 


CRLL 


BVTE 


MOV 


M, R 


INK 


H 


DCR 


E 


JNZ 


RD2 


CRLL 


BVTE 


JNZ 


ERR 


POP 


D 



SET UP PROGRRM/VERIFV PRRRMbTERb 



LXI 


H, RERDV 


PUSH 


H 


LXI 


H, BFR 


PUSH 


H 


LXI 


H, BFR+l' 


PUSH 


H 


PUSH 


D 


LDR 


FLRG 
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8CSE FE88 
8C78 C2C208 
0C73 C32083 



8 
















0. 



CP I 





JNZ 


PROG 


JMP 


CMPR 



76 


C5 


i - ' r' 


CDA78L 


7A 


CD8F8C 


7D 


07 


7E 


07 


7F 


07 


80 


07 


81 


4F 


fcici 


CDA78C 


85 


CD8F0C 


88 


Bl 


89 


4F 


8fl 


yiii 


SB 


cr-? 
•_' f 


8C 


79 


8D 


CI 


8E 


C9 



BVTE : 



ASSEMBLE BVTE FROM TWO ASCII DIGITS 



PUSH 


B 


CALL 


CI 


CALL 


NIBBLE 


RLC 




RLC 




RLC 




RLC 




MOV 


C, A 


CALL 


CI 


CALL 


NIBBLE 


OR A 


c 


MOV 


C, A 


ADC- 


D 


MO V 


D, A 


MOV 


A, C 


POP 


B 


RET 





CONVERT ASCII DIGIT TO HEX DIGIT 



8F 


D6_s8 


NIBBLE: 


SO I 


-' 8 -' 


91 


D A3 BOO 




JC 


ERR 


94 


C6E9 




AD I 


•" •'' 


96 


DA3BO0 




JC 


ERR 


33 


C606 




AD I 


6 


SB 


F2A30C 




JP 


N 1 


9E 


C607 




AD I 


{' 


AO 


DA3B88 




JC 


ERR 


A3: 


C60A 


N 1 : 


AD I 


10 


A5 


B7 




OR A 


A 


fl6 


C9 




RET 





G " 



SERIAL INPUT ROUTINE 



0C 


A7 


DBED 


0C 


A 9 


E602 


0C 


AB 


CAA70I 


0C 


AE 


DBEC 


0C 


BO 


E67F 


0C 


B2 

00 


C9 



CI 



IN TTC 

AN I RXRDV 

JZ C I 

IN RXD 

AN I 7FH 

RET 

END START 
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mSllft " INTEL "SER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/4040 D8008 SI 8080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



Mailing Label Program - LABEL 



The program takes a list of names and addresses and outputs them to mailing 
labels on a line printer. 



Required MDS-800 and printer. 
Hardware 



ISIS 



A file containing the names and addresses to be printed. 

The address file name is included with the program loading command, i.e., 

LABEL NAMES 
The user is queried by the program for the number of names in the file. 

Prints two labels for each name in the file. 



Registers Modified: 

-Ah 



RAM Required: 
473H + Address File Storage 



ROM Required: 



Maximum Subroutine Nesting Level: 
5 



Assembler/Compiler Used: 
PLM80 



Programmer: 

re t. Masteller 
Company: 

Bendix - Mishawaka 



Address: 

400 S. Beiger St. 



City: 



Mishawaka 



State: 

IN 46544 



© Intel Corporation, 1976 

8/78 
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PL/H-89 COMPILER MAILING LABEL PROGRAM VERSION 16 PAGE 1 

ISIS- -I I PL/H-88 V3. 9 COMPILATION OF MODULE MAILINGLABELPGM 
OBJECT MCiDULE PLACED IN :F1: LABEL OBJ 
COMPILER INVOKED BY: F1M88 :Fi: LABEL SRC 



ITITLEC MAILING LABEL PROGRAM VERSION 1 0') 

/* THE PROGRAM TAKES A LIST OF NAMES AND ADDRESSES AND OUTPUTS THEM 
TO NAILING LABELS ON A LINEPRINTER. THE NAME AND ADDRESS IS TVPED 
FROM A FILE ORGANIZED AS FOLLOWS: 

(1ST LINE) CLUB MEMBERSHIP LIST 
(2ND LINE) DATE 

(3RD LINE) NAME STREET CITY STATE ZIP MISC INFO 
<4TH LINE) ASHLEY, TOM RR 2 DOWGIAC, MI 46716 245 3722 

(NTH LINE) ZIMMER.JOE 194 SOUTH ST. KEHANNA, IN 46166 357 2888 

THE PROGRAM IS INVOKED BY THE COMMAND 

LABEL FILENAME 

WHERE FILENAME IS THE FILE COTAINING THE NAMES AND ADDRESS. 

THE USER IS QUERIED' FOR THE NUMBER OF NAMES IN THE FILE. THE MAXIMUM 
NUMBER IS 255 DECIMAL */ 

MAILINGILABELfPGH: DO; 

DECLARE FILENAME(16) BYTE; 
DECLARE IN*BFR(3) BYTL 

DECLARE MSGK*) BYTE DATACHOH MANY NAMES IN FILE? '); 
DECLARE AFTIBB BYTE; 
DECLARE BUCKETS) BYTE DATAC :BB:'); 
DECLARE DD BYTE INITIALS); /* DD IS THE NUMBER OF SPACES FROM THE START OF 

ONE LABEL TO THE BEGINNING OF THE NEXT */ 
DECLARE (LM,N,NMBR$CWm.NMBRITABS,NMBR*SPACES)BYTE; 
DECLARE NNBR*NANES BYTE INITIAL (31); 
DECLARE (K, ACTUAL*COUNL STATUS.. AFTIIN) ADDRESS; 
DECLARE LABELttFR (36) BYTE; 
DECLARE READ$ACCESS LITERALLY 'Vi 
DECLARE LINE$PRNTR (*) BYTE DATA <':LP:'); 
DECLARE CRLF (2) BYTE DATA <6DH, OAH); 

OPEN: PROCEDURE (AFTPTR, FILE. ACCESS, MODE, STATUS) EXTERNAL, 
DECLARE (AFTPTR, FILE, ACCESS, MODL STATUS) ADDRESS, 
END OPEN, 

CLOSE: PROCEDURE (AR, STATUS) EXTERNAL; 
DECLARE (AFT, STATUS) ADDRESS; 
END CLOSE, 

READ: PROCEDURE (AR, BUFFER, COUNT, ACTUAL- STATUS) EXTERNAL 
DECLARE (AFT, BUFFER, COUNT, ACTUAL, STATUS) ADDRESS; 
END READ; 
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Yl 


1 


3 


1 


4 


1 


5 


1 


6 


1 


7 


1 


8 


1 


9 


1 


18 


1 


11 


1 


12 


1 


13 


1 


14 


1 


15 


1 


16 


2 


17 


2 


18 


1 


19 


2 


29 


2 


21 


1 


22 


2 


23 


2 



PL/M-88 COMPILER HAILING LABEL PROGRAM VERSION 1. 6 PAGE 2 

24 1 WRITE: PROCEDURE (AFL BUFFER, COUNT, STATUS) EXTERNAL 

25 2 DECLARE (AFT, BUFFER, COUNT, STATUS) ADDRESS; 

26 2 END WRITE; 

27 i EXIT: PROCEDURE EXTERNAL; 

28 2 END EXIT; 

29 1 ERROR- PROCEDURE (ERRNUM) EXTERNAL; 
39 2 DECLARE (ERRNUM) ADDRESS; 

31 2 END ERROR; 

32 1 LINE$EDIT$6FR: 

PROCEDURE BYTE; 

33 2 CALL READ (1, .Li,. fiCTURUCOUNT, . STATUS); 

34 2 RETURN L 

35 2 END; 

36 i CONVERT: PROCEDURE; 

37 2 



38 2 DO N = 6 TO 2; 

39 3 IF <IN*BFR<N> AND 8F0H) = 30H 

THEN NMBRSNAMES = (19 * NMBRINAMES) + (IN$BFR(N) - 28H); 

41 3 ELSE RETURN; 

42 3 END; 

43 .2 END CONVERT; 

/* START OF MAIN PROGRAM */ 

/* READ FILE NAME FROM LINE EDIT BUFFER */ 

44 1 DO N = 8 TO 15; 

45 2 FILENAME(N) = 29H; 

46 2 END; 

4i 7 1 DO WHILE LINE$EDIT*BFR = ' ''; 

48 2 END; 

49 1 FILENAMES) = L 
58 1 N = 1; 

5i i DO WHILE LINE$EDIT$BFR O 9DH AND N < 16; 

52 2 FILENAME(N) = L 

53 2 N = N + 1; 

54 2 END; 

/* CLEAR BUFFER */ 

55 i CALL OPEN(. AFTIB6, . BUCKET, 2, 8, . STATUS); 

56 1 CALL READ (L . BUCKET, 122, . ACTUALSCOUNT, . STATUS); 

/* QUERY FOR NUMBER OF NAMES IN FILE */ 

57 1 CALL WRITE (9, . MSQ1, LENGTH(MSGl), . STATUS); 

58 1 CALL READ (1, . INIBFR, 3, . ACTUALSCOUNT, . STATUS); 

59 1 CALL CONVERT; 
8/78 
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68 


1 


61 


i 


62 


i 


63 


2 


64 


2 


65 


2 



PL/M-88 COMPILER MAILING LABEL PROGRAM VERSION 18 PAGE 2 

CALL OPEN (. AFTIIN, . FILENAME, REAWflCCESS* 8, . STATUS); 
IF STATUS <>8 THEN 
DO; 

CALL ERRQR(STATUS); 
CALL EXIT; 
END; 

/* READ FILE OF NAMES AND ADDRESSES FROM INPUT FILE */ 

66 i CALL READ <AFT$IN, . MEMORY, (255 * 88), . ACTUALICOUNT, . STATUS); 
6? i CALL CLOSE (AFTtfN, . STATUS); 

68 i CALL OPEN (. AFT$IN, . LIf€$PRNTR, 2, 8, . STATUS); 

/* SKIP HEADER LINES OF INPUT FILE */ 

69 1 K,N = 8; 



78 


1 


DO HHILE N < 3; 


71 


2 


IF MEMORY(K) = 8AH THEN 


72 


2 


N = N + jj 


73 


2 


K = K + li 


74 


2 


END; 



/* START OF PRINTING ROUTINE */ 
75 1 DOfALL: DO N = 1 TO 



16 


2 


11 


3 


78 


4 


79 


4 



81 


3 


82 


4 


84 


4 


85 


5 


87 


5 


88 


5 


89 


5 


98 


5 


91 


4 


92 


4 


93 


3 


94 


4 


95 


4 



DO M = 1 TO 3; /* WRITE 3 LINES OF DATA PER LABEL */ 
DO NMBRfCHARA = 8 TO DD; /*FILL LABEL BUFFER WITH SPACES */ 
LABEL$BFR$(NMBR$CHARA) = 28H; 
END; 

NMBR$CHARA,NMBR*SPACES,NMBR*TABS = 8; 

FILL$LABEL$BFR: DO HHILE <NMBR$CHARA < DD) AND <NMBR$SPACES < 2) AND (NMBRITABS = 8); 
IF MEMORV(K) = 89 /'* TEST FOR TAB */ 
THEN NMBR$TABS = h 
ELSE DO; 

IF MEMORY(K) = '' ' 

THEN NMBR*SPACES = NMBRISPACES + 1; 

ELSE NMBRISPACES = 8; 

LABEL*BFR(NMBR*CHARA) = MEMORV(K); 

NMBRICHARA = NMBRttHARA + 1; 

END; 

K = K + 1; 

END FILL$LABEL$BFR; 

DO L = 1 TO 2i 

CALL WRITE(AFT$IN, . LABEL*BFR, DD, . STATUS); 
END; 

96 3 CALL WRITE(AFT$IN, . CRLF, 2, . STATUS); /* PRINT THE LINE */ 

/* FIND THE START OF NEXT FIELD */ 

97 3 DO WHILE ((MEMORV(K) = ' ') OR (MEMORV(K) = 89)); 
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98 4 K = K + ii 

99 4 END; 

108 3 END DO$ONE*ROM; 

/* FIND NEXT LINE */ 

181 2 NEXTJLINE: DO WHILE MEMORY(K) O 8AH; 

182 3 K = K + L 

183 3 END; 

184 2 NEXTILABEL: DO L = 1 TO 3; 

105 3 CALL WRITE(AFT$IM . CRLF, 2, . STATUS); 

106 3 END; 

187 2 END DOtfLL 

188 1 CALL CLOSE<AFT*IN, . STATUS); 

189 1 CALL EXIT; 

118 1 END MAILINGILABELIPGM; 

MODULE INFORMATION: 

CODE AREA SIZE = 8345H 837D 
VARIABLE AREA SIZE = 6848H 72D 
MAXIMUM STACK SIZE = 888AH 18D 
186 LINES READ 
8 PROGRAM ERROR(S) 

END Of PL/M-88 COMPILATION 
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Ref. #D57 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/4040 D8008 018080 D8048 08085 D Other. 



(use additional sheets if necessary) 



INTELLEC MDS CHECK BOOK BALANCING 



Allows user to maintain a file, complete with password, of checks 
and deposits - all with a description and data then the program 
returns the balance to the console. The information may be 
recalled and displayed at any time. 



MDS-800/220/230 

MDS-DDS/2DS 

Line Printer (optional) 



ISIS-II disc operating system version 2.0 or 3.4 



All inputs are user prompted at the system console as what to enter 
and on critical entries; length is also specified 

**The source program may reside on any drive, but the user file 
is set up to be on drive only. 



Computed balance will be displayed on the system console. The 
listing of past activities may be printed on either the system 
console, or both the console and the line printer past activities 
may all be printed or may be printed by month or check number. 

**Note: When signing off this program, due to an error in the 
Fortran Compiler - if you answered no to the question 
"do you have a line printer" you will get an ISIS error 
and a Fortran error. Disregard these statements as 
they are meaningless in this situation. 



Registers Modified: 

ALL 



RAM Required: 

64K RAM 



ROM Required: 

2K MDS system monitor 



Maximum Subroutine Nesting Level: 

N/A 



Assembler/Compiler Used: 

Fortran-80 VI. 



Programmer: 

Kerry HoweTl 



Company: 

Almac Stroum Elec. 



Address: 

18760 



Rock Creek Circle #134 



City: 

Portland 



State: 

Oregon 97229 



® Intel Corporation, 1976 

8/78 



98-034D 

7-184 



Ref. #D58 



inSJt^" INTEL: "SERS LIBRARY SUBMITTAL FORM 



□ 4004/4040 D8008 E&080 D8048 D8085 D Other. 



Program 
Title 

Function 



(use additional sheets if necessary) 



FIFO - First-in, First-out Buffer Routi 



ne 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



This program performs the function of a First-in, First-out buffer 
and consists of 2 sub-routines; STORE and LOAD. Up to 256 bytes of 
RAM can be reserved for buffer memory, with the first byte being 
defined by MNDTA. When a byte of data is to be stored, the main 
program (or an interrupt service routine) loads the accumulator with 
the data and calls STORE. When a byte of data is to be loaded from 
the FIFO, the main program calls LOAD and obtains data from memory 
location BUF. When the FIFO is empty and an attempt is made to load 
data from the FIFO, sub-routine LOAD returns to the calling program 
with the carry bit set. 

CRT and TTY Software Drivers. 



Output 
Results 



Registers Modified: 



jgistei 



RAM Required: 

up to 259 bytes 



ROM Required: 

118 bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

MPS Macro Assembler Ver. 1.0 



Programmer: 

Mervin Doda 



Company: 
CANADA I R LTD. 



Address: 

P.O. Box 6087 



City: 

Montreal 



State: 

CANADA H3C 3G9 



© Intel Corporation, 1976 

8/78 



98-0340 

7-186 



RSM86 :F1: FIFO. SRC 



Ref. #D58 



ISIS-II 8688/8685 MflCRO ASSEMBLER, V2. 8 



MODULE PAGE 1 



LOC OBJ 



5EQ 



SOURCE STATEMENT 



F88F 
F893 



i 
z 

3 CO 

4 CI 
5 



FIFO 

EQU 
EQU 



8F88FH 
8F883H 



; HNDTfl DEFINES THE START OF FIFO MEMORY 



8189 318882 



8183 217A81 
8186 227:381 



8189 CD83F8 
818C E67F 
818E FE28 
8118 CA1D81 
8113 CD2A81 

8116 4F 

8117 CD8FF8 
011A C38981 
6UD CD3701 
0120 3A7701 

0123 4F 

0124 CD0FF8 
0127 C30901 



012A F5 
012B E5 
012C 2A7801 
812F 77 

0130 23 

0131 227881 

0134 El 

0135 Fl 

0136 C3 



8137 C5 

0138 D5 

0139 E5 

013A 3A7A01 
8/78 



9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 FIFOl: 

21 

22 



25 

26 

27 

28 

29 

30 

31 

32 
?■? 



ORG 

LXI SP, 208H 
; INITIALIZE CONTENTS OF LIP = HNDTA. 

LXI H,MNDTA 

SHLD LIP 
/MAIN PROGRAM RECEIVES ONE CHARACTER FROM CI. 
i IF THIS CHARACTER IS A SPACE, THE PROGRAM CALLS 
iLOAD SUB-ROUTINE IF THE CHARACTER IS NOT A SPACE, 
* THE CHARACTER IS PRINTED ON CO AND STORE 
; SUB-ROUTINE IS CALLED. 



FIFOS 



CALL 


CI 




ANI 


7FH 


;MASK PARI TV 


CPI 


20H 


; SPACE? 


JZ 


FIF02 


;VES 


CALL 


STORE 


; NO, CHAR. IS STORED. 


MOV 


C,A 




CALL 


CO 




JMP 


FIFOl 




CALL 


LOAD 




LDA 


BUF 


;BUF CONTAINS FIRST-QUT 


MOV 


CiA 


;DATA FROM FIFO. 


CALL 


CO 




JMP 


FIFOl 





34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 



STORE SUB-ROUTINE 



STORE: 



PUSH 


PSW 


PUSH 


H 


LHLD 


LIP 


MOV 


M,A 


INX 


H 


SHLD 


LIP 


POP 


H 


POP 


PSW 



; LIP POINTS TO FIFO 
; MEMORY BYTE THAT WILL 
; STORE PRESENT CHARACTER. 



RET 

; LOAD SUB-ROUTINE 

LOAD: PUSH B 
PUSH D 
PUSH H 
;BUF IS LOADED WITH FIRST-OUT DATA. 
LDA MNDTA 



7-187 



ISIS-1I 8888/8885 MACRO ASSEMBLER, V2. 8 



MODULE PAGE 



LOC OBJ 


SEQ 


SOURCE 


STATEMENT 


8150 227781 


53 


STA 


BUF 




54 i\ 


1NDTA IS 


SUBTRACTED FROM THE CONTENTS OF LIP. 


8148 117081 


55 


LXI 


D> MNDTA 


8143 2A7801 


56 


LHLD 


LIP 


8146 flf 


57 


XRA 


A 


8147 47 


cr, 
JO 


MOV 


B,fi 


8148 7B 


59 


MOV 


a E ; FORM 2'S COMPLIMENT 


8149 2F 


68 


CMA 


; OF MNDTA. 


014A 3C 


61 


INR 


A 


814B 5F 


62 


MOV 


LA 


814C 7fl 


63 


MOV 


FID 


814D 2F 


64 


CMfl 




814E 88 


65 


ADC 


B ; CARRY BIT IS ADDED 


814F 57 


66 


MOV 


D, A i TO D. 


8158 19 


67 


DAD 


D 




68 ; 


DIFFERENCE IS STORED IN C. 


8151 4D 


69 


MOV 


C,L 




78 ; 


IF LIP POINTS TO MNDTA, SET CARRY AND RETURN 


8152 79 


71 


MOV 


A,C 


8152 FE88 


72 


CPI 


88H 


8155 CA7381 


73 


JZ 


LD2 




74 i 


; INITIALIZE MEMORY TO MEMORY TRANSFER. 


8158 217A81 


75 


LXI 


Hi MNDTA 


015B U7A81 


76 


LXI 


Di MNDTA 


015E 23 


77 


INX 


H 




78 


; FIFO RIPPLE THROUGH DATA TRANSFER 


015F 7E 


79 LDi: 


MOV 


AiM 


8168 12 


88 


STAX 


D 


8161 13 


81 


INX 


D 


8162 23 


82 


INX 


H 


8163 8D 


83 


OCR 


C 


8164 C25F81 


84 


JNZ 


LDI 




85 


; DECREMENT CONTENTS OF LIP. 


8167 2A7881 


86 


LHLD 


LIP 


816A 2B 


87 


DCX 


H 


016B 227801 


88 


SHLD 


LIP 


016EB7 


89 


ORA 


A i CLEAR CARRY 


816F El 


98 LD3: 


POP 


H 


0170 Dl 


91 


POP 


D 


8171 CI 


92 


POP 


B 


0172 C9 


93 


RET 




8173 37 


94 LD2 


STC 




0174 C36F01 


95 
96 


JMP 


LD3 


0081 


97 BUF 


DS 


1 


0002 


98 LIP 


DS 


2 


0100 


99 MNDTfi: DS 


256 




180 


END 




PUBLIC SYMBOLS 








EXTERNAL SYMBOLS 








USER SYMBOLS 






8/78 



7-188 



ISIS-II 8080/8985 MfiCRO ASSEMBLER, V2. MODULE PflGE 3 

BUF fl 0177 CI fl F803 CO fl F88F FIFOl fi 0103 FIF02 fl 011D LD1 fl 015F LD2 fl 0173 

LD3 fl 016F LIP fl 0178 LOfiO .fl 0137 MNDTfl fl 017ft STORE fl 012fi 

flSSEMBLV COMPLETE, NO ERRORS 
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Ref.#D59 



insite 



INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 E8008 D8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



COS: A cassette operating system for the MDS-800 

Provides practical substitution of cassette storage for paper tape 
devices. Storage on cassette is buffer oriented and software 
routines provide for byte-by-byte reading and/or writing of data. 
It is completely integrated and compatable with the MDS monitor. 
The operating system allows file naming, search and directory, INTEL 
format HEX files, and opening and closing of ASCII files. 

Cassette I/O on ports EO and El HEX ) 

Cassette remote control on port E3 HEX ) scnema tic available 

1 or 2 audio cassette recorders 

MDS-800 

MDS Monitor Version 2.0 (may be adapted to others) 



Registers Modified: .,, 


Programmer: _ , w _ . , 
Robert A. McCormick 


RAM Required: -,,- „., _ 

. 75 Kbytes 


Company: _ . 

Frye Electronics, Inc. 


ROM Required: , oc „, ^ 

1.25 Kbytes 


Address: PO Box 23391 


Maximum Subroutine Nesting Level: 


City: Tigard 


Assembler/Compiler Used: . 

ISIS-II MACRO ASS. VER. 2.0 


State: OR 97223 



© Intel Corporation, 1976 



10/78 



98-034D 

7-191 



insite 



Ref.#D60 

INTEL USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 D8080 D8048 D8085 E Other_???5l^£^!!L (use additional sheets if necessary) 



INTELLEC MDS MAILING LIST - FORTRAN-80 

Allows the user to maintain a disc based mailing list of name, 
phone number, address and optional attributes. 

The mailing list may then be printed on shipping labels or 
recalled to the console. 



MDS-800/220/230 MDS-PRN (line printer) 

Tractor feed labels (Dennison #42-551-0, 3 1/2 X 15/16 



IS IS- I I disc operating system version 2.2 or 3.4 



All inputs are user prompted at the system console as what to enter, 
and on critical entries, the length is also specified. 



The mailing list will be stored on the disc drive under the user 

assigned name. 

Shipping labels are printed on the line printer when called in the 

program. 



Registers Modified: 


Prq^mmer p> Howel ] 


RAM Required: 

32K Ram 


°STma v c'/Stroum 


ROM Required: 

2K MDS System monitor 


Ad j!?f60 NW Rock Creek Circle #134 


Maximum Subroutine Nesting Level: 

N/A 


1 Portland 


Assembler/Compiler Used: 

Fortran-80 VI. 


State: 

OR 97229 



© Intel Corporation, 1976 

10/78 



98-034D 

7-193 



D 61 



insite 



INTEL" USERS LIBRARY SUBMITTAL FORM 



D 8008 D 8048 □ 8080/8085 □ 8086 □ Other 



(use additional shsats If necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



PLOTA 



This program plots up to loo coordinates, by the TTY (of other console 

device), using 64 columns by 64 lines. 

All coordinates must be integer , positive, from to 1023 



Basic Intelec MDS 800, i.e., Central Processor Module, Front Panel 
Control Module, Monitor Module, one 16K RAM module, connected to a 
teletype. 



Routines CO, CRLF, TI, PARAM, LBYTE from Intellec MDS Monitor, version 
V2.0, the DIVIDE routine on page 55 of the "8080 Assembly Language 
Programming Manual M -Rev. C, and any BCD to Binary (BCDB) conversion 
routine (given BCD in HL reg.pair, returns Binary in DE reg.pair) 

The program is conversational, by the TTY (console device). 

The scale that the program asks is the greatest value in the axis. 

After answering 'YES' on 'NO' to the two questions, before pressing 

Carriage Return, the line can be used for writing remarks up to its 

end. In these answers, only an 'N' as the first letter means 'NO'; 

any other character means 'YES'. 

Note: When entering the data NEVER press 'SPACE' immediately after a 
'?' or a ',', because the routine PARAM doesn't accept the NULL 
character (if it happens, PARAM returns to the Monitor!) 

A plot of the given coordinates is printed on the TTY (of console 
device), using the character '*' to indicate a point and the 
character '>' to indicate that a point is greater than the given 
maximum Y value. 



Registers Modified: 


Programmer: Fe rnando Jordan 


RAM Required: 


Company: -j- pT _ AIA 


ROM Required: 


Address: p> Q> box ?U1 


Maximum Subroutine Nesting Level: 


City: Sao Paulo 


A Intellec MDS Macro 
Assembler/Compiler Used: Assembler v2 . 2 


State: Brazil 



© Intel Corporation, 1978 

2/79 



7-195 



D 62 



inSlte" INTEL ' USER'S library submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D 8048 a 8080/8085 D 8086 D Other 



(us* additional shaats if necessary) 



SORT - GENERAL SORTING PROCEDURES 



General sorting procedure: working on complete lines or on 
fields (e.g. locate file: 1234H - PUB — NAME) 



MDS 800, diskette driver (DD) , console, line printer (optional) 

ISIS-II, monitor 

Any file to be sorted 

- SORT :Fi: FILENAME. EXTENSION 

Questions (see listing) 



:Fi: FILENAME. CLS on disk 
and on :C0: or :LP: as well 



Registers Modified: 



All 



RAM Required: 1000H (CODE + ISIS) 
6500H (T)ATA) 



ROM Required: Monitor 



Maximum Subroutine Nesting Level: 2 



Assembler/Compiler Used: 



MDS 8080/8085 
Macro Assembler 



Programmer: Maessen JL 



Company: Bell Telephone Mfg C 
ITT 



Address: 



Bell Telephonelaan 2 



City: 



B-2A40 GEEL 



State: 



Belgium 



© Intel Corporation, 1978 

2/79 



7-197 



insite '"tel* user^ sjjbrarysubmittal form 



□ 8008 D 8048 §8080/8085 D 8086 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



<"» «*«tlon«l Mhm , | f M^^ 



MAILING LIST MERGE 

This program will merge two mailing lists that were created bv 

will chLf f MaiUn8 LiSt (R6f * n0 - D60) into onlfile Progral 
lit a e °J ° r nameS repeated between the *"> files and wiU 
not append repeats to the destination file. 



MDS 800/220/230 
Disc drive 



ISIS-II disc operating system version 2.2 or 3 4 
Intellec MDS Mailing List (Ref .No. D60 

User is asked to enter a destination file and a source file 
The program will append from the source file to the destination 
tL\ «? 68 n0t Chan8e ° r dGStr °y the sourc * file in any way 

2; zi£i e t™r have been created by us ^ ~- ^ii:r 



X dSat-^rof theturcr^. are ^ « " 



ROM Required: 




2K sys tem monit-nr 
Maximum Subroutine Nesting Level: NA 



Company: 
Almac/Stroum Electron ics 

Address: WTW 
18760 NW Rock Creek Circle 

City: Portland 



^!!^^ I State: o regon 9722 9 



© Intel Corporation, 1978 

4/79 



7-199 



Ref. D64 



JnSJtg " INTEL * USER'S LIBRARY submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 □ 8048 H 8080/8085 □ 8086 □ Other 



(use additional shaata If nacaaaary) 



FILES 



This module consists of a group of utility procedures which 
ease file oriented 1/0 under ISIS-II. 



MDS with Disk System, Console Device 



ISIS-II 

PL/M 80 Complier 



Registers Modified: 



ALL 



RAM Required: 



380 Bytes 



ROM Required: 



656 Bytes 



Maximum Subroutine Nesting Level: 



1 



Assembler/Compiler Used: 



PL/M 80 



8/79 

© Intel Corporation, 1978 



Programmer: 



D.M. Brockman/E. Kozel 



Company: Boeing Commercial 
Airplane Company 



Address: p>fJ# Bqx 37Q7 MS:2 5_09 



City: Seattle 



Sta te: Washington 98124 



7-201 



SECTION 8 



GAMES 



REFERENCE PROGRAM PAGE 

NUMBER 

*E1 NIM 8-1 

E2 NIM 8-4 

*E3 BLACKJACK 8-6 

+E4 THE WORD GAME 8-8 

E5 GAMBOL 8-11 

*E6 MASTERMIND 8-13 

E7 MAZE 8-18 

E8 GAME OF LIFE 8-2© 

E9 NUMBERS 8-26 

E18 KALAH 8-28 

Ell AN ADAPTIVE GAME PROGRAM 8-32 

E12 MATCH GAME 8-35 

*E13 MAZE 8-39 

E15 LEWTHWAITE'S GAME 8-45 

*E16 TIC-TAC-TOE 8-46 

*E17 BANDIT, STATIC DISPLAV VERSION 1 8-48 

E18 KILL THE ROTATING BIT 8-50 

E19 PROMPT PONG 8-54 

E28 REACT 8-56 

E21 SLOT MACHINE 8-62 

E22 MATCH 8-64 

E23 MASTERMIND 8-66 

E24 "MASTERMIND 8888" RUN ON SBC 88/18 PROTOTYPING BOARD . . 8-68 

E25 LANDER 8-78 

E26 TIC-TAC-TOE - 3 DIMENSIONAL 8-72 

+E27 CRAP'S 8-74 

E28 VDU DARTS 8-76 

E29 HANG 8-78 

E38 BIORIM 8-88 

E31 SLALOM VERSION 1. 4 8-82 

E32 HORSERACE 8-84 

E33 MASTERMIND FOR SDK-86 8-86 

E34 TECH-NEL - FRUIT MACHINE GAME, VI. 2 

<FOR MDS SERIES 1 1 > 8-88 

E35 MOUSE 8-98 



^PROGRAM HAS BEEN CONVERTED TO RUN ON THE SDK-88 AND IS AVAILABLE 
TO INSITE MEMBERS UPON REQUEST. 



8/79 



iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



El 



D 4004 D 4040 D 8008 H 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



_ 



(use additional sheets if necessary) 



THE GAME NIM 



Please see attachment 



Intellec 8/80 with 4K RAM (Minimum) and TTY (or equivalent) 
Console. 



None - The program runs indpendently of other software 
or ROMs. However, a Hex tape loader such as in Monitor 
is required to read in the Hex paper tape. 



Registers Modified: 
All 



RAM Required: 

700 Hex Bytes 



ROM Required: 
None 



Maximum Subroutine Nesting Level: 
N/A 



Assembler/Compiler Used: 
8080 Assembler Ver. 3.0 



Programmer: 
William R. Ott 



Company: 



Applied Data Communications 



Address: 



1509 E. McFadden 



Santa Ana, Ca. 92705 



98-0346 

8-1 



APPLIED DATA COMMUN I CAT I ONS 
THE GAME NIM MAY 1 1975 



NIM IS AN ANCIENT GAME PLAYED BETWEEN TWO PLAYERS WITH READILY 
AVAILABLE MARKERS THAT COULD BE CHIPS, STONES, COINS ETC. 
THE GAME IS PLAYED WITH TWO PLAYERS AND IS STARTED BY ONE 
PLAYER SETTING UP THREE PILES OF CHIPS. THEN, IN TURN, EACH 
PLAYER TAKES HIS TURN AND REMOVES AS MANY CHIPS AS HE WISHES 
FROM A SINGLE PILE. HE MUST TAKE AT LEAST ONE CHIP. THE 
PLAY CONTINUES UNTIL ALL CHIPS ARE TAKEN AND THE PLAYER THAT 
TAKES THE LAST CHIP WINS THE GAME. 

IT IS THE TYPE OF GAME IN WHICH THERE ARE 3 STATES ONLY; 
PLAYER 1 ADVANTAGE, NEUTRAL AND PLAYER 2 ADVANTAGE. EACH MOVE 
CAN ONLY MOVE ONE STEP. E.G. FROM NEUTRAL TO A PLAYER'S 
ADVANTAGE OR A PLAYER ADVANTAGE TO NEUTRAL. SO, IN GENERAL, 
IT CAN BE SEEN THAT ONCE AN ADVANTAGE IS OBTAINED AND NO MOVES 
ARE MADE TO PRODUCE A MOVE FROM NEUTRAL TO THE OPPONENTS 
ADVANTAGE, YOU WILL WIN. NOW THE COMPUTER IS A VERY GOOD PLAYER 
IN THAT THROUGH A SMALL ALGORITHM IT WILL NEVER MAKE A "MISTAKE" 
AND THE ONLY WAY FOR AN OPPONENT TO WIN I S TO START RIGHT 
(CORRECT NUMBER OF CHIPS PRODUCING A PLAYER 1 ADVANTAGE) SO THAT 
THE COMPUTER WILL ALWAYS BE FORCED TO MOVE SO THAT THE ADVANTAGE 
IS RETURNED TO NEUTRAL AND NOT HIS (PLAYER 2). 



]-3 



iny 



MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM *f. no. _h 



D 4004 D 4040 (3 8008 D 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



NIM (A computer game) 

The object of the game is to select the last counter from the last 
pile. As each game starts, the computer will load each pile with 
a quasi-random number of counters, checked to insure that if you 
play exactly right you will win. 



Intellec 8 Mod 8 with standard TTY connected to ports O, 1, and gH. 



None. 



With program loaded jump to 0100H to run. 

Use TTY to input 2 characters for each player turn 



TTY will show 

Number of counters in each pile and game status 



Registers Modified: 



All 



RAM Required: 



260H 



ROM Required: 



None 



Maximum Subroutine Nesting Level: 
4 



Assembler/Compiler Used: 

Intellec 8 Mod 8 

Macro Assembler Ver 2.0 



Programmer: 

B. Weston 



Company: 

Transcom Inc. 



Address: 

580 Spring Street 

Windsor Locks, Conn. 06096 



98-0348 

8-4 



inUI 



MICROCOMPUTER USERS 
LIBRARY SUBMITTAL FORM 



Ref. No. 



E3 



D 4004 D 4040 D 8008 Q 8080 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



BLACKJACK 

INTELLEC/8 PLAYS BLACKJACK WITH OPERATOR 



INTELEC/8 HOD 80 
TELETYPE 



RESPONSES TO INITIAL QUESTIONS ARE TYPED IN USING A 
"RETURN" AS A TERMINATING CHARACTER 

WHILE PLAYING THE GAME, 'H' MEANS "HIT", AND 'S' 
MEANS "STICK"? 



BLACKJACT IS PLAYED, AND THE RESULTS OF EACH GAME 
ARE PRINTED. 

CONTINUOUS 'BELL' CHARACTERS AT ANY TIME INDICATE 
THAT THE PROGRAM IS "SHUFFLING" THE CARDS. 



Registers Modified: 
ALL 



RAM Required: 
APROX. 700 HEX 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
5 



Programmer: 

8080 MACRO ASSEMBLER, VER.3.0 



Company: 

ALAN ROSENBAUM 



Address: 



General Microwave Corp. 
155 Marine St. - Eapmlng3ale NY 



11735 



98-034B 
8-6 



insite 



Ref.# E4 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 $8080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



THE WORD GAME 

Player No. 1 loads a 16-word dictionary with words of his choice, 
The computer then selects one of these "at random" 
Player No. 2 then attempts to ascertain the word chosen by 
successive "guesses" on the teletype. The computer calculates 
the number of letters correct in each guess. 



TTY on PORT --1 



Initially 16 words of up to 16 letters in length are input via the 

teletype and stored in RAM 

(Locations 900 - 1000H) 

Thereafter each guess (input via teletype) is stored in 1020- 



1030 



The computer calculates and outputs via the teletype the number of 
letters correct, and in the right place, in each guess, followed 
by the number of letters correct and not in the right place, if any. 



Registers Modified: 
__A1L 



RAM Required: £K for Program 

Approx. ^K for Storage Buffer 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
Intel lee 8/Mod80 Macro A<^p mh | ,- \/ 9 



Programmer: 

J. M. Mi Iby 



Company: 
B.O.C. Ltd. Small Scale Automat i oil 



Address: 
2 Morris Rd. 



City: 
Daventry, Northhamptonshi re 



State: 
FNGLAND 



© Intel Corporation, 1976 



98-034D 
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THE COMPUTER SELECTS ONE WORD FROM THE SIX TEEM WORD 
DICTIONARY PREVIOUSLY LOADED BY PLAYER NUMBER ONE . 

PLAYER NUMBER TWO MOW ATTEMPTS TO ASCERTAIN WHICH 
WORD THE COMPUTER HAS SELECTED BY AS FEW GUESSES AS POSSIBLE. 

A CHOSEN WORD OF , SAY , CATAPULT WOULD , PERHAPS* GIVE 
RISE TO PRINTOUT OF THE FORM:- 

ABCDE. 0,2 
FGHIJKL. 1,0 
MNOpQRST* 1,1 
UVWXYZ. 0, 1 
ABC 0,2 
CAD. 2>0 

ETCETERA UNTIL 
CATAPULT- 8#0* 
AFTER THE COBREC T WORD HAS BEEN INPUT THE COMPUTER SELECTS 
AGAIN FROM THE SIXTEEN WORD DICTION ARY. 
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iny 



MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM Ref No li 



Program 
Title 

Function 



D 4004 D 4040 D 8008 B 8080 



GAMBOL 



(use additional sheets if necessary) 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



A demonstration game for the Intellec 8 Mod 80 based on the throwing 
of two dice. 



Intellec 8 Mod 80 (imm 8/84A) , teletype on port and 1 



System Monitor Ver. 2.0 



Operators guess as to result of next throw, input on demand via 
teletype. 



Result of throw, operators number of chips. Message on conclusion 
of game. 



Registers Modified: 
All 



RAM Required: 

5 bytes 



ROM Required: 
623 bytes 



Maximum Subroutine Nesting Level: 
2 



Assembler/Compiler Used: 

8080 Macro Assembler, Vers. 3.0 



Programmer: 

R. E. Hendtlass 



Company: 

Applied Physics Dept. , R.M.I. T. 



Address 



124 La Trobe Street, 
Melbourne, Australia 3000 



98-034B 
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inteL 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



E6 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results.. 



D 4004 D 4040 D 8008 £J 8080 □ 3000 



(use additional sheets if necessary) 



Mastermind 



A game of logic 
RULES 



The computer sets up a 4-digit code. Each digit is in the 
range to 5. The game is to break the code by typing in 
a series of guesses. For each guess, the program returns 
the following information: an "*" for each correct digit in 
correct position, and a V for each correct digit in a 
wrong position. For example, if the computer sets up 5025 
and the player enters 3215, the program will type * 



Intellec 8, Mod 80, T.TY. 



TTY input and output routines in the resident monitor, version 1.0. 



Registers Modified: 

AH 



RAM Required: 

110H 



ROM Required: 
5D0H 



Maximum Subroutine Nesting Level: 
3 



Assembler/Compiler Used: 

PL/Ml, version 1.3 



Programmer: 

M, Cheeseman 



Company: 

AERE HARWELL 



Address: 

Oxfordshire, ENGLAND 



98-034C 
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OOuOl 




OO002 




00003 




00004 




00005 




00006 




00007 




00008 




00009 




00010 




00011 




00012 




00013 




00014 




00015 




0001b 




00017 




00018 




00019 




00020 




00021 




00022 




00023 




00024 




00025 




0002b 




00027 




00028 




00029 




00030 




00031 




00032 




00033 




00034 




00035 




000 36 




00037 




00038 




00039 




00040 




00041 




00042 




00043 




00044 




00045 


2 


00046 


2 


00047 


2 


00048 


3 


00049 


3 


00050 


2 


00051 


1 


00052 


1 


00053 


2 


00054 


2 


00055 


2 


00056 


2 


00057 


2 


00058 


3 


00059 


3 


00060 


2 



/♦KEF. MO. E6 */ 

/♦PROGRAM TITLE MASTERMIND ♦/ 



/♦ PROGRAM MASTERMIND. M. CHEESEMAN AUG 1975 ♦/ 



20 



DECLARE ( 
DECLARE ( 
DECLARE B 
DECLARE M 
0AH,'DO i 
DECLARE M 
'4-DIGir 
' TO 5. 
' 8/ / 
'FDR /', 
THE /' 
'EACH/*,0 
DECLARE M 
', /',0D 
V,OUH,0 
ODH, OAH, ' 
0AH,'/321 
DECLARE M 
, 'KAN0OM 
DECLARE M 
DECLARE M 

'you TOOK 

DECLARE M 
DECLARE M 
DECLARE M 
DECLARE M 



SrARS,03TS,TRYS,I,J) BYTE ,XN ADDRESS; 
TEMP, SETUP) (4) BYTE; 
UFFERC72) BYTE; 

1 DATA C*MASTERMIND+',OCH,OAH, 
3U KNOW HOW TO PLAY',3FH,' :'); 
21 DATA (OAH, OAH, '/THE COMPUTER SETS UP A ', 
CODE./', ODH, OAH, '/EACH DIGIT IS IN THE RANGE', 
/', ODH, OAH, '/THE GAME ISSTO BREAK THE CODE', 
',ODH, OAH, '/TYPING IN A SERIES OF GUESS', 
ODH, OAH, '/EACH GUESS THE PROGRAM RETURNS ', 
, ODH, OAH, '/FOLLOWING INFORMATION: AN ♦ FOR ', 
OH, OAH); 

17 DATA ('/CORRECT DIGIT IN CORRECT POSITION', 
H, OAH, '/AND A . FOR EACH CORRECT DIGIT IN A ', 
AH, '/WRONG POSITION. E.G. IF THE COMPUTER/', 
/SETS UP 5025 AND THE PLAYER ENTERS /',ODH, 
5 , THE PROGRAM WILL TYPE ♦. /',0DH,0AH); 

3 DATA (OAH, 'PLEASE TYPE A NUMBER FOR THE ' 
ROUTINE : '); 

4 DATA (ODH, OAH, OAH,' /'); 

5 DATA (ODH, OAH, OAH, 07H, 'CORRECT. ', 
V,07H); 

6 DATA (' ATTEMPTS.', ODH, OAH, 'ANOTHER GAME',3FH,' :'); 

7 DATA (OAH, OAH, OAH, OAH, OAH); 

8 DATA ('....'); 

9 DATA ('****•); 



TTYINrPROCEDURE b/te; 
30X0 38 03H; 
END TTYIN; 

T nOMT: PROCEDURE (CHAR) ; 
DECLARE CHAR BYTE; 
GOTO 3809H; 
ElvD TTYOUr: 

RANDOM: PROCEDURE; 
DECLARE I BYTE; 

DO 1=0 TO 3; 
XN=XM*107; 
r&Mp(I)=x,\/1092 3; 

end; 
END random; 

^ESSAGE:PRDCEDURF(M,PTP); 
DECLARE (I,N) BYTE; 

DECLARE PfR ADDRESS, CHAR BASED PTR BYTE; 
IF N = TH£M l 

do; 

CALL TTYOUKCHAR(O)); 

RETURN; 

END; 

DO 1=0 TO Ht 
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OOOol 


2 


OO0b2 


3 


00063 


2 


00064 


1 


0006b 


2 


0006b 


2 


00067 


2 


00068 


2 


00069 


3 


00070 


3 


00071 


3 


00372 


3 


0007 3 


3 


00074 


4 


00075 


4 


O007o 


4 


00077 


3 


00078 


3 


00079 


3 


UO080 


3 


000 81 


4 


OO082 


4 


00083 


4 


00084 


3 


00086 


3 


00086 


3 


00087 


2 


00088 


2 


00089 


1 


00090 


1 


00091 


1 


00092 


1 


00093 


1 


00094 


1 


00095 


1 


00096 


1 


00097 


2 


00098 


2 


00099 


1 


OOIOO 


1 


00101 


1 


00102 


1 


00103 


1 


OO104 


1 


OOJ05 


1 


00106 


1 


00107 


1 


001 08 


1 


00109 


1 


00110 


1 


OOill 


1 


00112 


1 


00113 


2 


00114 


3 


00115 


2 


00116 


2 


00117 


2 


00118 


2 


00119 


2 


00120 


2 



CALL T1Y0U1 ICHARID); 

END MESSAGE; 
RtADtPROCtJURfe h*rt; 
DECLARE CriAK,1) BYTE; 
I,CHAR=0; 

DO aHILE (CHAROODH) AND (K72) 
Li: CHAK=TTYIN AND 7FH; 
CALL ITYOUTICHAP); 



/♦ 


CTRL, K ♦/ 


IF 


C4AR=0rtrt THEN 




DO; 




CALL TTYOUT(23H); 




IF I>0 THEN t=l-l; 




GOTO LI ; 




EiviO; 


/* 


CTRL L ♦/ 


IF 


CHAR = 0CH Tflfvi 




DO; 




CALL >1ESSAGE(LAST(M4),.M4); 




l=o; 




GOTO LI? 




END; 


BJFF»:P(n = CHAR AMD OFH; 


1 = 


Itl; 


end; 


RETURN 


BUFFER CO); 


END read; 


/* START MAI^i PROGRAM PROGRAM */ 



CALL ;4ESSAGE(LAST(Ml),.Mt); 

if pead = 0f.h then 
do; 
call message(la5t(m21 > , .m21 ); 

CALL >,ESSAGE(LAST(M22),.M22); 

end; 
call message(last(m3),.m3); 

i=read; 

1=0; XNsl; 

/♦ EVALUATE RANDOM NUMBER SEED »/ 
L3: IF BUFFER ( I )=ODH THEN GOTO L5; 
XNsXM*10»(15 AMD BUFFER(I)).* 
1=1+1; 
GOTO L3; 

/* SET UP THE GAME */ 
L5: CALL RAND0«; 
rRYS,SIARS=0; 

DO WHILE STARS<4; 
DO 1=0 TO 3; 
SETUP(1)=TEMP(I); 
END; 
CALL MESSAGE(LAST(M),.M4); 
/♦ READ THE ATTEMPT */ 
I=READ; 
TRiS=TPYS*l; 
STARS,DOTS=0; 

/♦ SCORE THE ATTEMPT */ 
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00121 2 DO 1=0 TO 3; 

™\1\ \ Tf BUFFER(I)=SEl'UP(n THEN 

UUUJ J oo; 

™\H I S1APS=STARS + 1; 

""J" \ 3UFFER(I)=0FFH; 

* SETUP(I)=0F0H; 

00127 4 END . 

0012b 3 END . 

001 29 2 D0 i=o TO 3; 

00130 2 , J0 J = T0 3. 

?°\H I ^ BUFFERCI)=SE1UP(J) THEN 

uuu ^ 4 oo; 

nn\\l t DOTS=OOTS+l; 

.,«}" I buffer(d=offh; 

,ri t i c setup(J)=ofoh; 

(HH3o 5 END . 

0013/ 4 END . 



00138 3 



end; 



00139 2 CALL TTYDUT(O); 

00140 2 CALL mDUT(O); 

00141 2 /* OUTPUT THE SCORE */ 

So}?? I IK SJAH5O0 THEN CALL MESSAGE(STARS-1 , ,M9) 

"° J: * IF 0DT5O0 THEN CALL MESSAGECDOTS-l , . M8 ) ; 

uv " " * E 'O ; 

00145 ! CALL MESSAGE(LASr(M5),.M5); 

0014 !> ! /* > 9 IRXS IS NOT GOOD ENOUGH */ 

00147 * IF TRYS>9 i'HEN TRYS=21H; 

00148 1 ELSE rPfSsTRYS+JOK; 

00149 i CALL TTYDUT(TRYS); 

00,50 1 CALL *ESSAGE(LAST(M6),.M6); 

00151 1 IF READ=9 THEN 

00152 1 Dl3 ; 

00153 1 CALL MtSSAGE(LAST(M7),.M7); 

00154 2 GOTO L5; 

00155 2 EN[ >. 

O015 5 ! GOTO 3300H; /* RETURN TO M0NH3R */ 

0015/ 1 EOF 
NO PROGRAM ERRDRS 
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inW 



USER'S 
LIBRARY SUBMITTAL FORM Ref No — n 



D4004 D4040 D8O08 Q[8080 



(um additional shaats if nacessary) 



Title 



Function 



Required 



Required 
Software 



Input 
Parameters 



Output 
Results 



MAZE 



This is a game program to generate random mazes. 



8080 System. A line printer can be used, but it is not required 



INTELLECT Monitor. (Any version). 

TTY Input (CI), TTY Output (CO), and List Output (L0) 

Keyboard inputs (See sample run). 



The Maze is printed on the device selected as the LIST device 



Registers Modified: 

ALL 



RAM Required: 

9EE (HEX) 



ROM Required: 

NONE 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

8080 MACRO ASSEMBLER VER 2.0 



Program m er: 

C Vincent Phillips 



Company: 

ALK0N CORPORATION 



Address: 

5329 N HIGH ST. 

COLUMBUS. OHIO 43214 

98-0348 
8-18 



Ref.# E8 



insite 



INTEL 8 USER'S LIBRARY SUBMITTAL FORM 



□ 4004/4040 D8008 &8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



LIFE, GAME OF 



Demonstration of Biological Growth on a two-dimensional plane by 
utilizing cellular Automata Model, (ref: Scientific American, 
Oct. 1970). 



ntellec/MDS System & Datapoint 3300 CRT 



Intellec/MDS Monitor I/O 



(X,Y) coordinates of initial cell pattern, entered via CRT 
keys: 



1\ J,, — », <— , CR, LF, SPACE, AND '*! 
Input is terminated with CTRL-C 



Successive generations of cell organism, based on initial pattern 
and reproduction laws. Very entertaining. 



Registers Modified: 
ALL 



RAM Required: 
^ zk bytes 



ROM Required: 



Maximum Subroutine Nesting Level: 
8 bytes 



Assembler/Compiler Used: 
PL/M, Ver. 2.0 



Programmer: 
K. Burgett 



Company: 
Dharma Systp.mq 



Address: 



City: 



San Jose 



State: 

Cal i fornia 



© Intel Corporation, 1976 



98-034D 
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00001 

00002 

00003 

00004 

00005 

00006 

00007 

00008 

00009 

00010 

00011 

00012 

00013 

00014 

00015 

00016 

00017 

0001b 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

0003b 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

0005b 

00059 

00060 



/*REF. NO. E8*/ 

/♦PROGRAM NAME GAME OF LIFE*/ 

200HJ 

/* GAME OF LIFE */ 



DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 



BELL LITERALLY '7'; 

CR LITERALLY 'ODH'; 

LF LITERALLY 'OAH'; 

DOWN LITERALLY 'OBH'; 

UP LITERALLY '1AH'; 

LEFT LITERALLY '19H'; 

RIGHT LITERALLY '18H'; 

ERASE$EOF LITERALLY '1FH'; 

HOME LITERALLY * 1 DH ' ; 

FALSE LITERALLY '0'; 

TRUE LITERALLY 'OFFH'; 

BREAKSKEY LITERALLY '5AH'; 

ARF.AYSSIZE LITERALLY '216*; 

POPULATION (ARRAYSSIZE) BYTE; 

NEXTSGENERATION (ARRAY$SIZE) BYTE; 

FOREVER LITERALLY 'WHILE 1'; 

POPULATION$COUNT ADDRESS; 

GENERATION ADDRESS; 

MASK DATA (128,64,32,16,8,4,2,1); 

MSO DATA ('GAME OF LIFE, GENERATION ') 



MSI DATA ('POPULATION 



); 



ci 



PROCEDURE 
DECLARE 



byte; 

IOCI LITERALLY 



'0F803H'; 



GO TO 
END ci; 



ioci; 



co: 

PROCEDURE 
DECLARE 
DECLARE 



(CHAR); 
CHAR BYTE; 
IOCO LITERALLY 



'OF809H' 



GO TO 
E;mD co; 



loco; 



print$string: 

PROCEDURE (Pi\iAME,PNLST); 

DECLARE (PNAHE,PNLST,PN1) ADDRESS; 
DECLARE (CHAR BASED PNAME) BYTE; 



= TO PNLST; 
CO(CHARCPWD); 



DO PNI 
CALL 

end; 
end ppintsstring; 
decimal$print: 

PROCEDURE (VALUE); 

DECLARE VALUE ADDRESS; 
DECLARE POWER ADDRESS; 

POWER = 10000; 

DO WHILE POaER > 0? 
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00061 2 IF VALUE >= POWER THEN 

0062 3 CALL CO CLOw C ( VALUE/POWER) MOD 10) + ); 

00063 3 POWER = POWER/10; 

00064 3 end; 

0006b 2 END DECIMALSPRINT; 

00066 1 

00067 1 CSTS: 

00068 1 PROCEDURE BYTE; 

00069 2 DECLARE IOCSTS LITERALLY '0F812H'; 

00070 2 

00071 2 GO TO IOCSTS; 

00072 2 END CSTS; 

00073 1 

00074 1 BREAK: 

0007b 1 PROCEDURE BYTE; 

00076 2 

00077 2 IF NOT CSTS THEN RETURN FALSE; 

00078 2 IF (CI AND 7FH) <> BREAKSKEY THEN RETURN FALSE; 

00079 2 RETURN TRUE; 

00080 2 END BREAK; 

00081 1 

00082 1 PROCREATE: 

00083 1 PROCEDURE (X,Y); 

00084 2 DECLARE (X,Y) BYTE; 
0008b 2 DECLARE (WORD, PLACE) BYTE; 

00086 2 

00087 2 IF ¥ >= 24 THEN RETURN; 

00088 2 IF X >= 72 THEN RETURN; 

00089 2 WORD = SHL(Y,3) + Y + (ROR(X,3) AND lFH); 

00090 2 PLACE = MASK(X AND 7); «,«„-,. 

00091 2 NFXTSGENERATION(WOPD) = NEXTSGENERATION (WORD) OR PLACE; 

00092 2 POPULATIONSCOUNT = POPULATIONSCOUNT t 1; 

00093 2 END PROCREATE; 

00094 1 

0009b 1 CENSUS: 

00096 1 PROCEDURE U,Y) BYTE; 

00097 2 DECLARE U,Y) BYTE; 

00098 2 

00099 2 IF Y >= 24 THEN RETURN FALSE; 

00100 2 IF X >= 72 THEN RETURN FALSE; 

00101 2 Y = POPULATION(SHL(Y,3)+Y+(ROR(X,3) AND 1FH)); 

00102 2 X = MASKU AND 7); 

00103 2 IF (Y AND X) = THEN RETURN FALSE; 

00104 2 RETURN 1; 
0010b 2 END CENSUS; 

00106 1 

00107 1 SETUP: 

00108 i procedure; 

00109 2 DECLARE (X,Y,CHAR) BYTE; 

00110 2 DECLARE SIZE BYTE; 

00111 2 

00112 2 CALL CO(HOME); 

00113 2 POPULATIONSCOUNT = 0; 

00U4 2 DO SIZE = TO LAST (NEXTSGENERATION ) ; 

00115 2 NEXT$GENERATION(SIZE) = 0; 

00116 3 end; 

00117 2 CALL CO(ERASESEOF); 

00119 2 DO Y WHILE (CHAR=(CI AND 7FH)) <> BREAKSKEY; 

00120 2 IF CHAR = CR THEN X = 0; 
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00121 

00122 

00123 

00124 

00125 

0012b 

00127 

00128 

00129 

00130 

00131 

00132 

00133 

00134 

00135 

00136 

00137 

00138 

00139 

00140 

00141 

00142 

00143 

00144 

00145 

00146 

00147 

00148 

00149 

00150 

00151 

00152 

00153 

00154 

00155 

00156 

00157 

00158 

00159 

00160 

00161 

00162 

00163 

00164 

00165 

00166 

00167 

00168 

00169 

00170 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

00178 

00179 

00180 



3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

4 

4 

3 

3 

3 

3 

3 

2 

2 

2 

1 

1 

1 

2 

2 

2 

2 

2 

3 

3 

2 

2 

2 

3 

3 

4 

3 

3 

3 

4 

5 

5 

4 

4 

3 

3 

2 

2 

2 

2 

2 

2 

1 

1 

1 

2 



ELSE 

IF CHAR s LF AND Y <> 23 THEN Y = Y + 1 ; 

ELSE 

IF CHAR = DOWN AND Y <> 23 THEN Y = Y + 1; 

ELSE 

IF CHAR = UP AND Y <> THEN Y = Y - 1; 

ELSE 

IF CHAR = LEFT AND X <> THEN X = X - 1; 

ELSE 

IF CHAR = RIGHT AND X <> 71 THEN X = X ♦ 1; 

ELSE 

IF CHAR = '*' AND X <> 71 THEN 

do; 

CALL PROCREATECX,Y); 
X = X + 1; 

end; 

ELSE 

IF CHAR = ' ' AND X <> 71 THEN X = X ♦ 1; 

ELSE CHAR = BELL; 

CALL CO(CHAR); 

end; 

call co(home); 

END setup; 



display: 
procedure; 
declare size byte; 
declare (x,y, column) 



byte; 



DO SIZE = TO LASTCNEXTSGENERATION); 

POPULATION(SIZE) = NEXTSGENERATIONCSIZE); 

nextsgeneration(size) = 0; 
end; 
call co(eraseseof); 

DO Y = TO 23; 
COLUMN =71; 

DO WhILE NOT CENSUSCCULUMN, Y) AND (COLUMN <> 
COLUMN = COLUMN - 1; 

end; 

if column <> then 

DO; 

DO X = TO COLUMN; 

IF CENSUS(X,Y) THEN CALL CO('* # ); 
ELSE CALL COC '); 

end; 

CALL CO(CR); 

end; 

CALL CQ(LF); 

end; 

CALL PRINT$STRING(.MSO,LAST(MSO)); 
CALL DEC IMAL$PRINT( GENERATION); 
CALL PRINT$STRING(. MSI, LAST (MSI)); 
CALL DECIMAL$PRINT(POPULATION$COUNT); 
CALL CO (HOME); 

END display; 



0); 



GENERATE: 
PROCEDURE; 
DECLARE 



(SIZE, X,Y, CELL) BYTE; 



8, 24 



00181 2 

00182 2 DO SIZE =0 TO LAST CNEXTSGENERATION) ; 

00183 2 NEXTSGENERATIONCSIZE) = 0; 

00184 3 end; 

0018b 2 POPULATIONSCOUNT = 0; 

00186 2 DO X = TO 71; 

00187 2 DO Y = TO 23; 

00188 3 CELL = CENSUSCX+1 , Y ) 

00189 4 + CENSUSCX+1, Y + l) 

00190 4 + CENSUSCX,Y+1) 

00191 4 + CENSUSCX-1,Y+1) 

00192 4 + CENSUS(X-1,Y) 

00193 4 + C£NSUSCX-1,Y-1) 

00194 4 + CENSUSCX,Y-1) 

00195 4 + CENSUSCX+1, Y-l); 

00196 4 IF CCELL=3) OB CCENSUSCX,Y) +CELL=3) THEN 

00197 4 DO; 

00198 4 CALL PROCREATE (X,Y); 

00199 5 end; 

00200 4 end; 

00201 3 end; 

00202 2 CALL COCHOME); 

00203 2 END GENERATE; 

00204 1 

00205 1 /* MAIN LOOP */ 

00206 1 

00207 1 DO forever; 

00208 1 GENERATION = 1; 

00209 2 CALL SETUP; 

00210 2 DO WHILE CPOPULATIONSCOUNT <> 0) AND NOT BREAK; 

00211 2 CALL DISPLAY; 

00212 3 GENERATION = GENERATION + 1; 

00213 3 CALL GENERATE; 

00214 3 END; 

00215 2 end; 

00216 1 EOF 

NO PROGRAM ERRORS 
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iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



E9 



D 4004 D 4040 Q 8008 £] 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



NUMBERS 

NUMBERS is a game. It generates a randcm number. The 
user types in guesses. The computer responds by indi- 
cating the guess was too big or too small. If the guess 
was equal to the random number, the user is congratulated 
and a new random number is generated. This game was 
originally done in BASIC. It appeared in "What to do 
after You Hit Return", a book of computer games. 



It takes a teletype on ports and 1, as the Intellec 
system does. 



It is a stand alone program. 



Type in numeric guesses from 1 to 100, terminating each 
with a carriage return. 



Error messages for incorrect guesses, and congratulatory 
messages for correct ones. 



Registers Modified : 

All 



RAM Required: 

IK 



ROM Required: 

None 



Maximum Subroutine Nesting Level: 

4 levels 



Assembler/Compiler Used: 

8080 Macro Assembler, Ver 3.0 



Programmer: 

Bernard R. Greening 



Company: 

Peoples Computer Company 



Address: 



P.O. Box 310 

Menlo Park, CA 94025 



98-0348 
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Ref.#E10 



inSitg " INTEL ° USER'S LIBRARY SUBMITTAL FORM 

D 4004/4040 ^8008 D8080 D8048 D8085 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



KALAH 

PLAYS THE GAME OF KALAH AGAINST A USER 



PREFERABLY AN OMRON 8025 CRT TERMINAL, BUT ANY OTHER 8008-BASED 
COMPUTER WILL DO; 2K BYTES MEMORY FOR PROGRAM; 2K 1n BYTES FOR 
DISPLAY (OPTIONAL) lU '10 



THE WITS OF THE USER 



THE THRILL OF VICTORY; 

ELSE 

THE AGONY OF DEFEAT; 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

PL/M 8008 VERSION 3.2 



Intel Corporation, 1976 



Programmer: 
ROBERT SILBERSTEIN 



Company: 

OMRON 



Address: 
45? TOYAMA PR 



City: 

SUNNYVALE 



State: 

CALIFORNIA 



98-034D 
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05/02/75. 18.12.37. 
PROGRAM KALAH 



/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/* 

/■* 

/* 

/* 

/* 

/* 

/■* 

/* 

/* 

/* 

/* 

/* 

/-v 



K K 




AAAA 


L 






AAAA 


H H 


K K 




A A 


L 






A A 


H H 


K K 




A A 


L 






A A 


H H 


KK 




A A 


L 






A A 


HHHHHH 


K K 




AAAAAA 


L 






AAAAAA 


H H 


K K 




A A 


L 






A A 


H H 


K K 




A A 


LLLLLL 




A A 


H H 


ESC 


R 


I P T I 


N 





F 


THE 


G A M E 



KALAH IS PLAYED ON A BOARD WHICH CONSISTS OF FOURTEEN SHALLOW 
INDENTATIONS (CALLED ''PITS' ) ARRANGED AS FOLLOWS: 



13 12 11 10 9 8 

(3) (3) (3) (3) (3) (3) 
14 (0) (0) -j 

(3) (3) (3) (3) (3) (3) 

12 3 4 5 6 



PITS 1 THROUGH 7 BELONG TO ONE PLAYER; PITS 8 THROUGH 14 BELONG 
TO THE OTHER. PITS 7 AND 14 ARE SPECIAL PITS CALLED 'KALAHS '. 

AT THE BEGINNING OF THE GAME EACH PIT CONTAINS THREE STONES, 
WHILE THE KALAHS ARE EMPTY, AS INDICATED IN THE DIAGRAM ABOVE. 
THE OBJECT OF THE GAME IS TO HAVE MORE STONES IN YOUR KALAH THAN 
YOUR OPPONENT HAS IN HIS AT THE END OF THE GAME. 

AFrER DECIDING WHO GOES FIRST, THE PLAYERS TAKE TURNS MAKING MOVES 
ACCORDING TO THE FOLLOWING RULES: 



1 ) 



2) 



3) 



A PLAYER CHOOSES A NON-EMPTY PIT ON HIS OWN SIDE OF THF 
BOARD (EXCLUDING HIS KALAH) AND TAKES ALL THE STONES FROM THE 
PIT. HE THEN PUTS ONE OF THESE STONES IN EACH PIT (WITH THE 
EXCEPTION OF HIS OPPONENT'S KALAH) STARTING WITH THE PIT 
IMMEDIATELY FOLLOWING THE EMPTIED ONE IN A COUNTER- 
CLOCKWISE DIRECTION UNTIL ALL THE STONES FROM THE CHOSEN PIT 
HAVE BEEN REDISTRIBUTED. 

IF, IN REDISTRIBUTING STONES ACCORDING TO RULE 1) THE LAST PIT 
TO RcCEIVE A STONE IS A PLAYER'S OWN KALAH, HE GETS ANOTHER 
TURN. 

IF THE LAST PIT TO RECEIVE A STONE MEETS ALL THE FOLLOWING 
CONDITIONS, A CAPTURE OCCURS. 

A) IT IS ON THE PLAYER'S OWN SIDE OF THE BOARD, 

B) IT IS EMPTY, AND 



C) THE OPPONENT'S PIT DIRECTLY OPPOSITE IT 0\! THE BOARD 
IS NOT EMPTY. 
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/* WHEN A CAPTURE OCCURS, THE PLAYER TAKES THE CAPTURED STONES 
/* FROM HIS OPPONENTS PIT AS WELL AS HIS OWN CAPTURING STONE 
/* AND PLACES THEM IN HIS KALAH. 

/* THE GAME IS OVER WHEN EITHER SIDE OF THE BOARD IS EMPTY. AT THIS 

/.* POINT ANY STONES REMAINING ON A PLAYER'S SIDE OF THt BOARD ARE 

/* PLACED IN THAT PLAYER'S KALAH. 

/* 

/* THE PLAYER HAVING MORE STONES IN HIS KALAH WINS. 

/* 
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Ref.# Ell 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 &8008 G8080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



An Adaptive Game Program 



This program is a primitive example of a computer learning by experience 
The program plays two variations of the game of NIM: Last One Wins and 
Last One Loses. The player and the machfne alternate in taking 1, 2, 
or 3 "eggs" from a "basket". The contestant wfio takes the last "egg" 
wins or loses, dependtng on the game being played, 

8008, 540 bytes of memory, including 18 bytes of RAM, 
Console input/output 



None. 

Monitor I/O routines may be used if available. 



Console Input. 



Console Output. 



Registers Modified: 
All 


Programmer: 

C. E, Ohme 


RAM Required: 
18 bytes 


Company: 
OHME 


ROM Required: 523 bytes — 491 bytes if 
standard 1/0 routines are used. 


Address: 

44750 Windinq Lane 


Maximum Subroutine Nesting Level: 
3 


City: 

Fremont 


Assembler/Compiler Used: 
8008 Macro Assembler Ver. 2.0 


State: 
California 94538 (415)657-ft^?fi 



© Intel Corporation, 1976 



98-034D 
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THE GAMES OF 
LAST ONE WINS AND 
LAST ONE LOSES 



THESE TWO GAMES ARE VARIATIONS OF THE GAME OF NIM, 
DIFFERING ONLY IN THE WAY THE WINNER IS DETERMINED. 
THEY BEGIN WITH A "BASKET" CONTAINING A RANDOM 
NUMBER(11-18) OF "EGGS". TWO PLAYERS ALTERNATE TAKING 
If 2» OR 3 "EGGS" FROM THE "BASKET". THE PLAYER 
REMOVING THE LAST "EGG" FROM THE "BASKET" EITHER 
WINS OR LOSES THE GAME* AS INDICATED BY THE NAME OF 
THE GAME BEING PLAYED. 

TO USE THIS PROGRAM, THE CONSOLE OPERATOR CHOOSES 
BETWEEN THE TWO GAMES BY SELECTING THE LOCATION 
(WINS OR LOSES) AT WHICH EXECUTION BEGINS. THE 
COMPUTER THEN DISPLAYS THE NUMBER OF EGCS IN THE 
BASKET AND WAITS FOR THE OPERATOR TO INDICATE HIS 
MOVEdN ALTERNATE GAMES THE COMPUTER MOVES FIRST). 
THE BASKET IS AGAIN DISPLAYED, THE COMPUTER MAKES 
ITS MOVE* ETC, UNTIL THE GAME IF COMPLETED- 

FOR EITHER GAMEr THE COMPUTER USES A GAME STRATEGY 
EMBODIED IN A MATRIX IN MEMORY. THE MATRIX TS 
POTENTIALLY MODIFIED BY THE OUTCOME OF EACH GAME. 
THIS PROCESS EVENTUALLY LEADS TO THE OPTIMUM STRATEGY 
FOR THE VARIATION OF THE GAME CURRENTLY BEING 
PLAYED. 

THE OPTIMUM STRATEGIES FOR THE TWO VARIATIONS OF 
THE GAME ARE QUITE DIFFERENT. SINCE A SINGLE 
MATRIX IS USED TO RECORD THE COMPUTER'S STRATEGY, 
THE OPERATOR CAN IMPROVE HIS ODDS BY CHANGING GAMES 
WHEN THE COMPUTER GETS TOO SMART. 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. No. 



E12 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 □ 8008 Q 8080 □ 



3000 



(use additional sheets if necessary) 



Match Game 

See additional sheet 



Intel! ec 8, TTY on port and 1 



Routines in resident monitor, version 1.0, TTY input, TTY output, 
carriage return and linefeed, convert ASCII to HEX 



n r n 9r J m „ accepts ASCI1 cnaracters on Port 0. Only the characters 
"1", "2" or "3" will cause the program to continue, Any other 
character will initiate a "fault" sequence. 



All output results are displayed on the TTY, The actual number of 
matches remaining is indicated by that number of "/" characters. 
The program echoes the character typed by the player, as well as 
printing the number which the program has subtracted. Three 
messages are printed on the TTY: 

player wins "YOU WIN" 

program wins "I WIN - SORRY" 

invalid character typed "NO CHEATING" 



Registers Modified: 

A,B,C,D,E,H,L 



RAM Required: 

5 bytes (exclusive of program) 



ROM Required: 

None 



Maximum Subroutine Nesting Level: 
2 



Assembler/Compiler Used: 

8080 Macro Assembler, version 2,0 



Programmer: 

Michael M. Dodd 



Company: 



Address: 



291 Waples Estates 
Fairfax, Va. 22030 



98-034C 
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Michael M. Dodd 
234 Waples Estates 
Fairfax, Virginia 22030 



PROGRAM TITLE: 
FUNCTION: 



Match Game 



The purpose of this program is to match a player 
against the processor, in a test of logic* Fifteen 
matches are provided at the start of the game; each 
player may remove 1, 2, or 3 matches per turn. The 
player who must remove the last match loses the game. 

The program prints 15 matches on the TTY and awaits 
the player's move; the player indicates that he wants 
to remove 1, 2, or 3 matches by pressing the appro- 
priate key on the TTY. Upon receipt of the number 
from the player, the program subtracts that number 
from the matches, prints the remaining matches, prints and 
subtracts its own number, and prints the remaining 
matches again. The program then awaits the player's 
next move, at which time the sequence begins again. 

If the program must remove the last match, it prints 
a "lose" message on the TTY and then prints 15 matches, 
in preparation for the next game* 

If the player must remove the last match, the program 
prints a "win" message on the TTY and then prints 15 
matches, in preparation for the next game. 

If, at any time, the player presses any key except 1, 
2, or 3, the program prints a "fault" message on the 
TTY and then prints the same number of matches the 
player had before he pressed the wrong key. 

Since, after playing the game several times, it becomes 
apparent that there is only one sequence the player can 
use to win, a "randomizer" was built into the program. 
The randomizer routine is in effect only when it is 
the program's turn and there are ten or more matches 
remaining. It causes the program to sometimes remove 
a number different from what might be expected. This 
performs the dual function of making the player think 
more about his next move and also of giving the player 
a better chance to win the game. 

Unless otherwise directed by the randomizer, the pro- 
gram will remove a certain number of matches, depending 
on the number remaining, as shown below. 
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Michael M. Dodd 
234 Waples Estates 
Fairfax, Virginia 22030 



PROGRAM TITLE: Match Game 



FUNCTION , „ 

(Continued) Matches Remaining Removed by Program 

14 1 

13 1 

12 3 

11 2 

10 1 

9 1 

8 3 

7 2 

6 1 

5 1 

4 3 

3 2 

2 1 

1 (Lose) 

Under some conditions, as directed by the "ODD" 
subroutine, the program will take 2, instead of 

the number indicated, for 10 - 14 matches remaining, 
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intel 



MICROCOMPUTER USER'S 

LIBRARY SUBMITTAL FORM a*, no. ei 3 



D 4004 D 4040 D 8008 (3 8080 □ 3000 



(use additional sheets if necessary) 



Program 

Title I Maze 



Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



User attempts to find his way out of an invisible (i.e. dark) maze. 



TTY on ports and 1, 



System monitor version 3.0, 



Characters from TTY. Instructions contained in program. 



Messages from program. 



Registers Modified: 

All 



RAM Required: 

0000H -- 0300H 



ROM Required: 

System monitor, Version 3.0 



Maximum Subroutine Nesting Level: 
4 



Assembler/Compiler Used: 

8080 Macro Assembler version 3,0 



Programmer: 

J,B. Miller-Smith 



Company: 

Racal-Milgo Ltd. 
Address: Portman House. Loverock Rd. 



Reading, Berks., ENGLAND 



98-034C 
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IS 



8086 MACRO ASSEMBLER, VI. 



PAGE 1 



; REF. NO. E12 

; PROGRAM TITLE MAZE 



0040 



.; MAZE GAME - MAZE TABLE ADDRESS 40H TO 7FH 
; CURRENT POSITION HELD IN ADDRESS 80H 
,• PROGRAM STARTS AT ADDRESS 100H 
ORG O040H 



0040 FFFFFF44 


DB 


OFFH 


, OFFH, ©FFH, 44H, 


50H, 48H 


0044 5048 














0046 404C44FF 


DB 


40H, 


4CH, 44H, 


OFFH, OFFH, OFFH 


004A FFFF 














004C FFFF44FF 


DB 


OFFH 


, OFFH, 44H, OFFH, 


0FFH, 44H 


0050 FF44 














©052 54FF58FF 


DB 


54H, 


OFFH, 


58H 


, OFFH, 5CH, 50H 


0056 5C50 














0058 FF54FFFF 


DB 


0FFH 


, 54H, 


OFFH, OFFH, 


OFFH, 60H 


005C FF60 














^"-5E FF545C64 


DB 


OFFH 


, 54H, 


5CH 


, 64H, OFFH, OFFH 


, 62 FFFF 














0064 60FFFF68 


DB 


60H, 


OFFH, 


OFFH, 68H 




0068 FF0F64FF 


DB 


OFFH 


. OFH, 


64H 


. OFFH 




0100 






ORG 




01OOH 




2F72 


TI 




EQU 




2F72H 


; SVSMON I/P ROUTINE 


2809 


CO 




EQU 




2809H 


.; " O/P » 


0080 


PO£ 


:n 


EQU 




OO80H 


.; CURRENT POSITION ADDRESS 


0100 212F00 


START : 


LXI 




SP, 002 


FH 


01O2 2E40 






MVI 




A, 40H 


; SET. . . 


0105 228000 






STA 




POSN 


.= . . INITIAL POSITION 


0108 218401 






l:«:i 




H, MSGO 


■ 


010B CD7801 






CALL 




OUTPT 


; O/P INTRO" MSG. 


01OE CD722F 


ENTRV : 


CALL 




TI 


.; AWAIT I/P 


©111 FE4C 






CPI 




'L- 


.; LOST ? 


0112 CA0O01 






JZ 




START 


.= VES, RESTART 


0116 FE4E 






CPI 




'N-' 


.: NORTH ? 


0118 C22001 






JNZ 




SOUTH 


, NO 


011B 0E00 






MVI 




C, 0OH 


.; VES, SET TABLE DISPLACEMENT. 


011D C24701 






JMP 




MOVE 


; . . POINTER, & CHECK MOVEMEN1 


0120 FE52 


SOUTH : 


CPI 




s •— .•• 


.; REPEAT FOR S, E, AND W 


0122 C22A01 






JNZ 




EAST 




0125 OE01 






MVI 




C, 01H 




0127 C24701 






JMP 




MOVE 




012A FE45 


EAS 


T: 


CPI 




x c •' 




012C C22401 






JNZ 




WEST 




2F 0EO2 






MVI 




C, 02H 




feJl21 C24701 






•JMP 




MOVE 




0124 FE57 


WES 


T: 


CPI 




'W 
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0126 C22E01 




JNZ 


ERROR 


.; NOT N, S, E, OR N 


0129 0E02 




MVI 


C, 02H 




012B C24701 




JMP 


MOVE 




012E 214F02 


ERROR : 


LXI 


H, MSG1 


; OUTPUT. . . 


0141 CD7801 




CRLL 


OUTPT 


.; . . ERROR MSG. 


0144 C20E01 




JMP 


ENTRV 


, TRY MORE I.'P 


0147 2R8000 


MOVE : 


LHLD 


POSN 


.; GET CURRENT POSITION 


014R 7D 




MOV 


R, L 


.; RDD IN. . . 


014B 81 




RDD 


c 


.;. . DISPLACEMENT. . . 


014C 6F 




MOV 


L, R 


.; . . AND CLEAR H OF. . . 


014D 2600 




MV I 


H, 00H 


.; . . ANV RUBBISH 


014F 7E 




MOV 


R, M 


.; GET TABLE ENTRV 


0150 FEFF 




CP I 


OFFH 


.; IS IT NALL MARKER ? 


0152 CA6601 




.JZ 


WALL 


; VES 


0155 FE0F 




CPI 


0FH 


.; IS IT EXIT MARKER ? 


0157 CA6F01 




•JZ 


EXIT 


j VES 


01 5R 228000 




STR 


POSN 


.; NEITHER, STORE NEN POSN 


015D 217802 




LXI 


H, MSG2 




0160 CD7801 




CRLL 


OUTPT 


.; 0,-'P "OK" MSG. 


0162 C20E01 




JMP 


ENTRV 


.: NEXT TRV 


0166 218002 


WALL : 


LXI 


H, MSG2 




69 CD7801 




CRLL 


OUTPT 


.; O.'P "NALL" MSG. 


5C C20E01 




JMP 


ENTRV 


.; TRV AGA I N 


016F 219002 


EXIT: 


LXI 


H, MSG4 




0172 CD7801 




CRLL 


OUTPT 


.; O/P "CONGRAT-'S" MSG. 


0175 C20001 




JMP 


STRRT 


.; RESTART NEN GAME 


0178 7E 


OUTPT : 


MOV 


R, M 


; GET CHARACTER 


0179 FE00 




CPI 


00H 


.; END MARKER ? 


017B C8 




RZ 




.; VES, RETURN 


017C 4F 




MOV 


C, R 


.; COPV TO C 


017D CD0928 




CRLL 


CO 


.; DO O/P 


0180 22 




I NX 


H 


.; POINT TO NEXT CHAR. 


0181 C27801 




JMP 


OUTPT 


j LOOP 


0184 0D0R0R0R 


MSGO : 


DB 0DH. 


0RH, ORH 


, OAH, OAH 


0188 0R 










0189 594F5520 


DB •' VOI- 


RRE IN 


R DARK 


MAZE a-JITH A COMPASS ! >. 


018D 41524520 










0191 494E2041 










0195 20444152 










0199 4B204D41 










019D 5R4 52028 










01R1 57495448 










01R5 20412043: 










01R9 4F4D5041 










01RD 52522021 










Bl 292E 










01B2 0D0R 


DS ODH, 


0RH 






01B5 4645454C 


DB -FEEL VOUR 


NRV OUT 


BV SPECIFVING MOVES NORT 
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01B9 20594F55 






01BD 52205741 






01C1 59204F55 






01C5 54204259 






01C9 20535045 






01CD 43494659 






01D1 494E4720 






01D5 4D4F5645 






01D9 53204E4F 






01DD 5254482C 






01E1 0D0A DB 


ODH, ©AH 




01E3 534F5554 DB 
01E7 482C4541 


'SOUTH, EAST, & NEST 


OJSING INITIAL LETTERS). ' 


01EB 53542C20 






01EF 26205745 






01F3 53542028 






01F7 5553494E 






01FB 4720494E 






01FF 49544941 






0203 4C204C45 






0207 54544552 






P">8B 53292E 






3E 0D6R DB 


0DH, 0RH 




0210 49462048 DB 
0214 4F50454C 


'IF HOPELESSLV LOST, 


TVPE "L" - GAME RESTARTS. ' 


0218 4553534C 






021C 59204C4F 






6220 5354 2C20 






0224 54595045 






0228 29224 C22 






022C 202D2047 






0230 414D4520 






0234 52455354 






0238 41525453 






023C 2E 






023D 0D0fl DB 


ODH, ORH 




023F 474F4F44 DB 


' GOOD LUCK ! ' 




0243 204C5543 






0247 4B2021 






024R 0D0R0A9R DB 


ODH, ORH, ORH, ORH 




024E 00 DB 


OOH 




024F 2020204E MSG1 : DB ' N, S, E, W 
0253 2C532C45 


<OR L> ONLV PLEASE - RETVPE 


0257 2C572028 






025B 4F52204C 






025F 29284F4E 






0263 4C592050 






S7 4C454153 






bc.6B 45202D20 






026F 52455459 
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0273 5@45 

0275 0D0A0O DB ODH, 0AH, 00H 

0278 2020204F MSG2 : DB ' OK' , ODH, OAH, OOH 

027C 4B0DOA00 

0280 0707202O MSG3: DB 07H, 07H, ' — NALL — ', ODH, OAH, OOH 

0284 202D2D57 

0288 414C4C2D 

028C 2D0D0A00 

0290 0D0AOA43 MSG4 : DB ODH, OAH, OAH, - CONGRATULATIONS !' 

0294 4F4E4752 

0298 4154554C 

029C 4154494F 

02A0 4E532021 

02A4 0DOA594F DB ODH, OAH, 'VOU ARE CLEAR OF THE MAZE. ' 

02A8 55204152 

02AC 4520434C 

02BO 45415220 

02B4 4F462054 

02B8 4845204D 

02BC 415A452E 

02CO ODOAOAOO DB ODH, OAH, OAH, OOH 

i 

tfO END 
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MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Dec. 1976 
Ref. E15 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 □ 8008 ^8080 □ 3000 



(use additional sheets if necessary) 



Lewthwaite's game 



A 5*5 matrix has cells which are alternately filled with 
two types of counters ( X and 0) except for the center 
cell which is blank* A player and the computer alternate 
turns by moving their counter toward the blank cell 
(thereby filling that cell and creating a new blank cell) 
until the player or the computer has no legal move. 
Whoever makes the last move wins, A legal move is made 
from any orthogonal (not diagonal) cell adjacent to the 
blank cell toward the blank cell. 

MDS 800 & ADDS 580 CRT (or any cursor addressable CRT) 



Monitor routines 



Row & coHumn of the counter to be moved toward the blank 
cell. 



CRT will update the matrix in place and trace the moves. 



Registers Modified : 
All 



RAM Required: 

Less than 3K bytes 



ROM Required: 

Monitor 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

MDS 800 Macro Assembler VZ.2 



Programmer: 

Tom McHugh 



Company: 



Address: 3^0 n Eartlett 
Milw. WI. 53211 



98-034C 
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MICROCOMPUTER USER'S *'• "76 
LIBRARY SUBMITTAL FORM Ref ™ 



Q 4004 D 4040 D 8008 S 8080 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



TIC-TAC-TOE 



This game lets two players play against each other, 
while the machine supervises the game. 



Intellec/MDS system & CRT-console 



Intellec/MDS monitor I/O 



Keyboard inputs (1-9) 

Square to be deleted; and square to be filled. 



The square is drawn on the console with Xs and Os 
and error messages. 



Registers Modified: 

All 



RAM Required: 

7E0H 



ROM Required: 

None 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

8080Macro assembler V1.0 



Programmer: 

Rune Larsen 



Company: The Norwegian telecom, 
research establishment 



Address: 



P.O.B. 83 



N-2007 Kjeller NORWAY 



98-034B 
8-46 



intel 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. # E17 



□ 4004 □ 4040 □ 8008 H 8080 □ 3000 



(use additional sheets if necessary) 



Bandit, static display version 1. 



Game:- (fruit machine). Produces a static display on VDU screen. 
Selects random numbers to choose 'fruit' from preprogrammed odds. 
Programme attempts to simulate a fruit machine; as far as possible. 



MDS80 and Hazeltine 1200 VDU; else any system with a VDU and a CO and 
CI routine. NB Following ASCII code used with Hazeltine. Space (20H) , 
destructive space (10H), clear screen (0CH) , and top of page (0BH) . 
This code may vary with other VDU's. 



Resident MDS800 system monitor or other suitable CO & CI software. 



Parameters from VDU keyboard:- Money entered as 5 or 10, and CR used 
to start a game. Held reels are entered as 1, 2 or 3. Other parameters 
used for clearing held reels and obtaining pay out are permanently 
written on the VDU screen. 



Game machine layout drawn on VDU screen. Programme updates display 
each game with random selection of 'fruit 1 , and amends the number of 
games left. This operation repeats when initiated by the player for 
subsequent games, until his money runs out. A display of winning 
combinations can be requested when the programme is first entered. 



Registers Modified: 



ALL 



RAM Required: 
2000H to 2952H for programme. 

IFF4H to IFFFH for stack 



ROM Required: 



None 



Maximum Subroutine Nesting Level: 
3 



Assembler/Compiler Used: 
8080 Macro Assembler 



Programmer: 
P.G.R. Kit son MSc 



Company: 
Marconi Radar Systems Ltd. 



Address: 

New Parks, Leicester, England 



98-034C 



8-48 



intel 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref . # E18 



D 4004 D 4040 □ 8008 & 8080 □ 3000 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



Kill the Rotating Bit 



Demo Game for Prompt 80 

Two versions of the same game are given. One version uses the 

exclusive-or instruction and is therefore shorter. 



Prompt 80 



Prompt 80 monitor which does the initialization 
of Port E8 and E9. 



The bit (or bits) input through Port E9 of the Prompt 80, 



See Listings for complete instructions 



Registers Modified: 
A, B, H, L, E (2nd program only) 


Assembler/Compiler Used: 
MDS 800 Macro VI. I 


RAM Required: 
^5 bytes (2nd program) 
25 bytes (Tst program) 


Programmer: 

Lenard Persin 


ROM Required: 
None 


Company: 


Maximum Subroutine Nesting Level: 



Address: 

»o? a F k fi d9 yfc Aptl, ° 



98-034C 



8-50 



f 5 8089 MACRO ASSEMBLER, VI. 1 



PAGE 1 



3D00 



00E9 
88E8 



i REF. NO. E18 
PROGRAM TITLE KILL THE ROTATING BIT 



+ + :+::+::+::+::+::+: + :+::+: + :+::+: + :+: + :+::+::+::+::+: + :+::+::+::+: :+::+:M-::+::+::+::+:^:+::+:* + : + :: + :: + :: + : + :f : + :+::+: 

LENARD PERSIN SEPTEMBER 20, 1976 

THIS IS A DEMO PROGRAM FOR THE PROMPT fifl THIS 
PROGRAM USES THE EXCLUSI VE-OR INSTRUCTION AND IS 
THEREFORE SHORTER THAN THE PREVIOUS VERSION THE 
OBJECT IS TO KILL THE ROTATING BIT. IF VOU 
MISS THE LIT BIT ANOTHER ONE AT THAT SWITCH 
POSITION WILL TURN ON, NOW LEAVING VOU TWO BITS 
TO DESTGRV. IN ORDER TO KILL A BIT TOGGLE THE 
SWITCH (PREbS ONE OF THE INPUT SWITCHES AND THEN 
THE RST SWITCH:' AS THE ROTATING BIT MOVES BV 
DON-T LEAVE THE SWITCH IN THE "ON" POSITION. BE 
SURE TO HIT THE PORT RESET SWITCH AFTER EAOH 
TOGGLE. BEFORE STARTING MAKE SURE ALL THE PORT 
SWITCHES ARE IN THE "OFF" (RESET::' POSITION. 

IF VOU WIN AND KILL THE BIT TO RESTART MERELV 
TOGGLE ONE OF THE SWITCHES TO START A NEW BIT. 

START THE PROGRAM AT ±Dk)B. AS VOU GET BETTER 
SPEED UP THE ROTATING BIT AND TRV AGAIN. 

:+: :+; :+: :+: :+: :+: :+: :+: :+: : +: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+: :+ . :+ . :+: :+ . . + . , + . . + . . + . . + . . + . . + . . + . . + . ;+ . . + . . + . ;+ . , + . ;+ . . + . , + . , + . . + . 
ORG 3D00H 

PORT ASSIGNMENTS 



SWTCH 
LGHTS 



EQU 
EQU 



0E9H 
0E8H 



INPUT SWITCHES 
OUTPUT LIGHTS 



REGISTER USE 



B-LIGHT PATTERN 

H-HIGH ORDER DELAV TIME 

L-LOW ORDER DELAV TIME 



INITIALIZE B REGISTER WITH BLINK PATTERN 



START 



sDOO Ub8U 



MVI 



B, 88H 



ONE LIGHT ON 
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PAGE 2 



3D02 218877 



ROTATE THE LIGHT PATTERN USING THE DELAV TIME 
SET BY THE H AND L REGISTERS. 



ROTATE 



LX I 



H, 7788H 



LOAD SPEED DATA < LOWER THE 

VALUE THE FASTER THE ROTATING 
RATEX 



DELAY LOOP 



LOOP 



DOS 


2B 


D06 


7D 


D07 


B4 


DOS 


C2053D 


DOB 


i°" o 


DOC 


07 


■DOD 


47 


DOE 


2F 


:DOF 


D3E8 



2D±± DBE9 
3:DO 2F 

3D14 A8 

3D 15 47 
3D16 C3023D 
3D 00 



OCX 

MOV 
ORA 
JNZ 



MOV 
RLC 
MOV 
CMA 

OUT 



H ; DECREMENT H .& L REGISTER PAIR 

; < DELAY TIME). 
A, L i CHECK IF H & L = 0. 

H .; "OR" H & L REGISTERS 

LOOP ; IF NOT ZERO DECREMENT 

DELAY TIME BY ONE AND 

TEST AGAIN. 

A, B ; GET LIGHT PATTERN 
ROTATE THE LIGHT PATTERN 

B, A .; SAVE NEW LIGHT PATTERN 
ADJUST FOR COMPLIMENT 
OF OUTPUT. 

LGHTS .: OUTPUT TO LIGHTS 



READ SWITCHES FOR INPUT PATTERN 
SWTCH 



IN 
CMA 

XRA 

MOV 
JMP 
END 



B 

B, A 

ROTATE 

START 



READ SWITCHES FOR PATTERN 

ADJUST FOR COMPLEMENT 

OF INPUT. 

EXCLUSIVE "OR" SWITCH 

PATTERN AND LIGHT PATTERN. 

UPDATE LIGHT PATTERN 

JUMP TO "ROTATE" AND OUTPUT 
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iny 



MICROCOMPUTER USER'S 
LIBRARY SUBMITTAL FORM 



Ref. # E19 



Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 □ 4040 O 8008 O 8080 D 3000 X PROMPT 80 <"« additional sheets if necessary) 



Program I 

Title PROMPT PONG 



A GAME OF PONG USING THE PROMPT 80 



PROMPT 80 



PROMPT 80 MONITOR 



SS^J?^ "•" KEY AN ° ° NE *"™«* ■," KEY op T HE 



PPn2pT W An L BE DISPLAYED 0N THE RIGHT MOST NUMERICAL DISPLAY GROUP OF 



PROMPT 80. 



THE 



Registers Modified: 
ALL 



RAM Required: 
SEE LISTING 



ROM Required : 
SEE LISTING 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
ISIS 8080 MACRO ASSEMBLER VI. I 



Programmer: 
BOB A. MC NAMARA 
LENARD PERSIN 



Company: 



Address: 

6318 LUZION DR 
ORLANDO. FIA ^ftfto 



98-034C 



8-54 



Ref. § E20 



falsity INTEL * USER 'S LIBRARY SUBMITTAL FORM 

D4004 D4040 D8008 H8080 D3000 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



REACT 

Game to test your reaction time 



MDS, Output console with "bell" that is audible 



MAC80 Assember or Cross Assembler 



Finger presses interrupt 7 button ASAP after hearing bell 
Occurance of bell is randomized in time between 1 and 2 
seconds . 



At console output get displayed the reaction time in 1/100 
sec. units; i.e. if the value is 19 this means 0.19 seconds 
Max value or for "jumping the gun" is 0.99 sec. 



Registers Modified: 
All 



RAM Required: 

3 bytes for VSA 



ROM Required: 

Monitor + 345 bytes 



Maximum Subroutine Nesting Level: 
2 



Assembler/Compiler Used: 
Mac 80 



Programmer: 

v. Grinich 



Company: 
Stanford University 



Address: 
101 GRL 



City: 
Stanford 



State: 
California 94 30 5 



© Intel Corporation, 1976 
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98 034 C 
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; REF. NO. E20 

; PROGRAM TITLE REACT < REACT I ON TIME> 



F809 
F803 

000D 
000A 
0007 

007E 
0038 
0028 036531 

3100 

2100 3E12 
3102 D3FD 
3104 3E00 
3106 D3FC 
"108 2E7E 
-10A D2FC 

210C 310033 
310F 1E93 

3111 21C121 
2114 4E 
3115 CD09F8 

3118 23 

3119 ID 
311R C21431 
311D FB 
211E 21C021 
3121 36FF 
3123 CDA231 
3126 1E09 

3128 214D01 

312B CDAD31 
312E CDB631 

3131 ID 

3132 F22831 
3135 CDA231 
3138 211482 

13B CDAD31 
S12E 2ABE31 
3141 65 



.: REACTION TIME ON ISIS SVSTEM 

CO 

CI 

CR 

LF 

BELL 

MASK 



ENTRV 



RPT1 : 



NWTRV : 
LXI 



CNTDN 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
ORG 
JMP 
ORG 

MVI 
OUT 
MVI 
OUT 
MVI 
OUT 

LXI 
MVI 

LXI 

MOV 

CALL 

I NX 

DCR 

JNZ 

EI 

H, FLAG 

MVI 

CALL 

MVI 

LXI 

CALL 

CALL 

DCR 

JP 

CALL 

LXI 

CALL 

LHLD 

MOV 



0F809H 

0F803H 

ODH 

0AH 

07H 

7EH 

38H 

SRVC7 

310OH 

A, 12H 
OFDH 
A.. 0OH 
0FCH 
A, MASK 
0FCH 



SP, 330OH 

E, LMES1 AND OFFH 

H, MES1 

C, M 

CO 

H 

E 

RPT1 



.: RbT 7 AND RST ALLOWED 
; RST 7 AREA 



INIT OF INTERRUPT MASK 



TO CATCH TOO-EARLV STARTERS 



M, OFFH 
CRLF 
E, 09H 

H.. 10000/30 



10008 USEC=10 MILL I SEC 
DELAV LOOP IS 30 USEC 



DELAV 

COASC .: PRINT OUT 9,8, . 1. R 

E 

CNTDN 

CRLF 

H, 10000/30*100 .: 1000 MILL I SEC 

DELAV .; GET ONE SEC OF DELAV 

LO 

H, L 
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3142 CDAD31 CALL DELAV 

3145 21C031 LXI H, FLAG 

3148 3600 MVI M, 00H 

314A 0E07 MV I C, BELL 

314f: CD09F8 CALL CO 

314F 1600 MVI D, i ZERO OUR CUUNTER 

3151 7A LUP1 : MOV A, D 

3152 C601 AD I 1 

3154 27 DAA 

3155 57 MOV D.. A 

3156 FE99 CPI 99H :• MAX VAL THAT CAN BE DISPAVED 
^15ft f:25i":31 JNZ MORE 

315B 76 HLT ; WAIT FOR INT 7 HERE 

MORE : 

315C 214D01 LXI H, lOOOO/^O ; 10 MILLIbEC 

~:15F CDAD31 CALL DELAV 

3162 C35131 JMP LUP1 

.; SRVCE SUB-ROUTINE FOR RST 7 

SRVC7 : 

3165 F5 PUSH PSW 

3166 C5 PUSH B 
~:167 D5 PUSH D 

168 E5 PUSH H 

3169 21C031 LXI H, FLAG 

316C AF XRA A 

316D BE CMP M 

316E CA7331- JZ OK ; IF FLAG IS ZERO NOT A FALSE START 

3171 1699 MVI D, 99H 
OK : 

3173 7A MOV A, D 

3174 21BE31 LXI H, LO 

3177 7A MOV A, D 

3178 E60F AN I 0FH 
317A 07 RLC 

317B 07 RLC 

317C 07 RLC 

317D 07 RLC 

317E ?7 MOV M, A ; RANDOMIZE THE START GUN 

317F 7A MOV A, D 

3180 E6F0 AN I 0F0H ; CONVERT H. O. NIBLLE TO AbCIVALUE 

3182 QF RRC 

3183 0F RRC 

3184 OF RRC 

3185 0F RRC 

3186 C630 AD I 30JH 

3188 4F MOV C, A 

3189 CD09F8 CALL CO 
Lftf: 7A MOV A, D 

318D E60F AN I 0FH; GET L. 0. NIBBLE INTO ASCII VAL NOW 

318F C630 AD I 30H 

8-59 



I b S0S0 MACRO ASSEMBLER, VI. 1 rrqe 3 



;:191 4F 
i:!92 CD89F8 
;:195 F3 
J196 El 

5197 Dl 

5198 CI 

5199 3E20 
519B D3FD 
;19D Fl 
:±SE Fl FOP PSN ; EXTRA POP TO CLEAR RETURN ADDREi 



MOV 


C, A 


CALL 


CO 


DI 




POP 


H 


POP 





POP 


B 


MVI 


A, 20H 


OUT 


8FDH 


POP 


PSN 


POP 


PSN 



ON STACK FROM RST 



319F Cj:1D31 JMP NNTRV 



CRLF : 

31 A2 0E8D MVI C, CR 

31A4 CD09F8 CALL CO 

31A7 8E8A MVI C, LF 

31A9 CD09FS CALL CO 

31AC C9 RET 



DELAV : 

.; SUB ROUT THAT GIVES 30 USEC DELAV FOR 
.; EVERV UNIT THAT IS IN THE H RP 

31AD 2B MORE1: DCX H 

31AE E3 XTHL .; USE SINCE LONGEST DELAV PER BYTE 

31AF E3 XTHL ; RESTORE STACK AND H RP 

31BS 7C MOV A, H 

<1B1 B5 ORA L .; IF BOTH H AND L ARE =0 ACC IS =0 

21B2 C2AD31 JNZ MORE1 

31B5 C9 RET 

COASC : 

Z1B6 ?B MOV A, E 

<±B? C638 AD I 30H.; CONVERT VALUE IN REG. E TO '<E>' 

i±B3 4F MOV C, A 

ilBA CD09FS CALL CO 

<1BD C9 RET 

21BE LO: DS 2 

£1C0 FLAG: DS 1 

<1C1 41465445 MES1 : DB -'AFTER COUNDONN ':!9, 8, .±.£i:> THERE WILL BE 
S1U5 5220434F 
;:1C9 554E444F 
i±CD 574E202S 
;:iD:l 392C3S2C 
1D5 2E2E2C31 
:-!D9 2C302928 
>1DD 54484552 
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31E1 


45205749 






31E5 


4C4C2042 






31E9 


4520 






31EB 


41203120 


DB 


•A 1 SEC PAUSE, Tl 


31EF 


53454320 






31F3 


50415553 






31F7 


452C2054 






31FB 


48454E20 






31FF 


41204245 






3203 


4C4C2E20 






3207 


0D0A 


DB 


CR, LF 


3209 


48495420 


DB 


•HIT INT 7 BUTTON 


320D 


494E5420 






3211 


37204255 






3215 


54544F4E 






3219 


20415341 






321D 


5020414E 






3221 


44205345 






3225 


4520594F 






"•:* "Z* 1 "I* 1 '—I 


55522052 












322D 


45414354 






~:231 


494F4E 






.234 


2054494D 


DB 


- TIME IN TENS OF 


_s ii! 3 y 


4520494E 






32 3C 


2054454E 






3240 


53204F46 






3244 


204D494C 






3248 


4C495345 






324 C 


434F4E44 






3250 


532E 






— . .-, cj -~i 


0D0A 


DB 


CR, LF 


0093 


LMES1 


EQU 


*-MESl 


3100 




END 


ENTRY 



THEN A BELL. 



ASAP AND SEE VOUR REACTION 



MILLISECONDS. 
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Ref. # E21 



insitg" INTEL * USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Output 
Results 



□ 4004 D4040 D8008 H8080 D3000 □ Other. 



(use additional sheets if necessary) 



8080 SLOT MACHINE 



Simulates 3 Wheel Slot Machine 

Described in Book 

Game playing with computers 
by Donald Spencer 



Written for Intel lee 8/M0D 80 with 
TTY on Ports and 1 or 
CRT on Ports 4 and 5 



I/O routines in System Monitor Ver. 3.0 



input (see sam p| e printout) 
Parameters 



Registers Modified: 
ALL 



RAM Required: 
686 hex bytes 



ROM Required: 



Maximum Subroutine Nesting Level: 
4 



Assembler/Compiler Used: 
MACRO ASSEMBLER V 3.0 



© Intel Corporation, 1976 

4/77 



Programmer: 
Mark D. Hansen 



Company: 
I SCO 



Address: 

P. 0. Box 5347 



City: 
Lincoln 



State: 
Nebraska 68505 



98 034C 

8-62 



insite 



Ref. # E22 



INTEL 8 USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 E8080 D3000 □ Other. 



(use additional sheets if necessary) 



MATCH (Resembles Invicta Corp's "Mastermind") 

A Game for the Intellec 8 /Mod 80 which "Matches" the logical skills 
of the player against the random "imagination" of the Intellec. The 
Intellec selects a code consisting of some combination of six letters, 
The player, aided by feedback information, receives five chances to 
decipher this code. 



Intellec 8/Mod 80, Teletype on Port and 1 



Program is self-contained. 



Conversational Mode only: (7-Bit ASCII) 

User Input: Some combination of 4 letters selected from: A,B,C,D,E,F 

See attached documentation for further information regarding 
the play of the game. 



Conversational Mode Only: (7-Bit ASCII) 

1) "Welcome," "Ready" Messages, 

2) Score, Accumulating Machine "Laughter" at Player's Losses, 

3) "Waiting..." Message - Every 55 sec, 

4) Illegal Input Reject Message, 

5) Feedback Codes - "$" and "*", 

6) Correct Code Shown when Player Loses Game, 

7) "You Win", "You Lose" Messages. 



Registers Modified: 

A, B, C, D, E, H, L 


Programmer: 
PATRICK F. CASTELAZ 


RAM Required: 

50 Bytes (includes 29 for stack) 


Company: 

Marquette University - Engineering 


ROM Required: 

957 Bytes (IK) 


Address: 

1515 West Wisconsin Avenue 


Maximum Subroutine Nesting Level: 
3 


City: 
Milwaukee 


Assembler/Compiler Used: 

Ini-^llec 8 MACRO Assembler 


State: 

Wisconsin 53233 



4/77 
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Ref.# E23 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



8/8/77 



□ 4004/4040 D8008 XX8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



MASTERMIND 8080 

The computer selects a random code in the range 000000 to 999999. The 
player attempts to break this code by entering via the keyboard a series 
of guesses, based on "clues" provided by the computer after each guess. 



INTEL SBC 80/10 with TTY interface. 

Alternatively INTELLEC MDS-800 with TTY or CRT interface. 



Console Input /Output routines resident in the System Monitors. 

To begin program execution, enter'G3C3D' . To restart a game, enter any 
character via the keyboard, The computer then prompts the player to 
select: a) the length of code (i.e. number of columns) to be guessed, 
-Enter one digit in the range 1 to 6. 

b) the range of numbers to be used in the code (0-4 minimum, 
0-9 maximum) The computer adjusts the original code appro- 
priately if the full range 0-9 is not selected. 

-Enter one digit in the range 4 to 9. 

c) The maximum number of guesses allowed. 
-Enter two digits in the range 01 to 99. 

Program execution may be aborted at any stage by inputting the character 

A . 



After each attempt at guessing the code, the computer replies by 
outputting: 

i) the number of digits correct in both value and position, 
ii) the number of remaining digits having correct value but incorrect 
position. 

Appropriate messages are outputted when the code is guessed correctly, 
or when the maximum number of attempts has been reached, as in (c) above 
or when aborted. ' 



Registers Modified: 
ALL 



RAM Required: 39F (HEX) = 927 bytes prog. 
20 (HEX) = 32 bytes worksp e 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

ISIS 8080 Macro Assembler VI. 1 



Programmer: 
C J. Wil liams 



Company: 
ce Cable & Wireless Ltd. 



Address: 
114 Great Suffolk St. 



City: 

London, SE1. 



State: 

ENGLAND 



© Intel Corporation, 1976 



98-034D 
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Ref.//E24 



■ ■ m TM 

insite 



INTEL USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/40 D8008 &8080 D8048 D8085 D3000 D Other. 



(use additional sheets if necessary) 



"MASTERMIND 8080" Run on SBC 80/10 Prototyping Board 



The computer selects a random code in the range 000000 to 999999. The 
player attempts to break this code by entering via the keyboard a series 
of guesses, based on "clues" provided by the computer after each guess. 



INTEL SBC 80/10 with TTY interface. 

Alternatively INTELLEC MDS-800 with TTY or CRT interface, 



Console Input/Output routines resident in the System Monitors. 

To begin program execution, enter 'G3C3D' . To restart a game, enter any 
character via the keyboard. The computer then prompts the player to 
select: a) the length of code (i.e. number of columns) to be guessed. 
-Enter one digit in the range 1 to 6. 

b) the range of numbers to be used in the code (0-4 minimum, 
0-9 maximum) The computer adjusts the original code appro- 
priately if the full range 0-9 is not selected. 

-Enter one digit in the range 4 to 9. 

c) The maximum number of guesses allowed. 
-Enter two digits in the range 01 to 99. 

Program execution may be aborted at any stage by inputting the character 

After each attempt at guessing the code, the computer replies by 
outputti ng: 

i) the number of digits correct in both value and position, 
ii) the number of remaining digits having correct value but incorrect 
position. 

Apropriate messages are outputted when the code is guessed correctly, 

or when the maximum number of attempts has been reached, as in (c) above, 

or when aborted. 



Registers Modified: 

ALL 


Programmer: 
C. J. Willi ams 


RAM Required:39F(HEX) = 927 bytes program 
20(HEX) = 32 bytes workspace 


Company: 

Cable & Wireless Ltd. 


ROM Required: 


Address: 

1 14 Great Suffolk St. 


Maximum Subroutine Nesting Level: 


City: 

London , SE 1 . 


Assembler/Compiler Used: 

ISIS 8080 Macro Assembler VI. 1 


State: 

ENGLAND 



8/8/77 



Intel Corporation, 1976 



98 034 D 
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Ref.#E25 



mSlte INTEL * "SER'S LIBRARY SUBMITTAL FORM 

D 4004/4040 D8008 D8080 &8048 D8085 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



LANDER 



A MOON LANDER GAME WHICH IS PLAYED ON THE INTEL PROMPT 48. 



PROMPT 48 



RESIDENT MONITOR SUBROUTINES 

KEYBOARD ENTRIES OF: 

- 9 FOR THRUST, 

A FOR ALTITUDE DISPLAY, 

F FOR REMAINING FUEL DISPLAY. 



DISPLAY SHOWS VELOCITY AND ALTITUDE OR REMAINING FUEL. 
VELOCITY IS "FROZEN" AT TOUCHDOWN. 



Registers Modified: A,R0,R1 ,R2, R6,R7,F0, 
R0',Rr,R2',R3' ,R6' ,R7' ,P2 



RAM Required: -iou 



ROM Required: 



15DH 



Maximum Subroutine Nesting Level: 
3 



Assembler/Compiler Used: 

ISIS-II 8048 ASSEMBLER. VI. 2 



Intel Corporation, 1976 



Programmer: FRAN|( m? 



Company: 
ATLANTIC RESEARCH CORPORATION 



Address: 

5390 CHEROKEE AVENUE 



City: 



ALEXANDRIA 



State: 

VIRGINIA. 22314 



98-034D 

8-70 



Intel 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



MICROCOMPUTER USER'S LIBRARY SUBMITTAL FORM 



Ref.#E26 



D 4004 □ 4040 □ 8008 ^8 8080 



(use additional sheets if necessary) 



TIC TAC TOE - 3 Dimensional 

A GAME PROGRAM 

GIVEN A CUBE OF 4 TIMES 4 TIMES 4 POINTS TRY TO SET 
4 POINTS IN LINE. COMPUTER TRIES THE SAME. EACH POINT 
CAN BE OCCUPIED EITHER BY THE COMPUTER OR BY THE HUMAN 
BEING. FIRST TO FINISH WINS. COORDINATES ARE GIVEN 
BY A SINGLE LETTER FOLLOWED BY A NUMBER MATRIX IS 
OUTPUT AFTER EVERY ACTION. TYPING 'X' AFTER STARTING 
THE PROGRAM ALLOWS HUMAN TO START, ANY OTHER CHARACTER 
MAKES MACHINE START . ^KALl^R 

no special hardware required 



Monitor Routines: OUTSP prints space on TTY 

TTYIN inputs one character to A Register 
TTYOU outputs one character from A register 
CRLF does carriage return/line feed on TTY 



PROGRAM COMMUNICATES WITH TTY ONLY 



GAME MATRIX AFTER EACH ACTION 



X=HUMAN ACTION 
0=COMPUTER ACTION 



P4 J2 

ABCD EFGH 

2 -OX- 

3 __q- 

4 o o 



IJKL MNOP 
-X-X 



Registers Modified: 

all 



RAM Required: 

1 k Bytes 



ROM Required: 

none except for monitor 
routines 



Maximum Subroutine Nexting Level: 

4 



Assembler/Compiler Used: 

INTELLEC 8/80 Macro Assembler 



Programmer: 

R.Vogel/W.Vollenweider 



Company: 

HAMLATA 



Address: 



Bahnhofstrasse 46c 



CH-8305 Dietlikon Switzerlan; 



8-72 



Ref. #E27 



msit^ " INTEL ° users library submittal form 

D4004/4040 D8008 138080 D8048 D8085 DOther 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(use additional sheets if necessary) 



CRAP'S (Dice Game) 

Allows user to play game of chance. 



SDK-80 with terminal 



SDK- 80 monitor 

Subroutines used: (Crout) (Typeout) (Echo) (Break) (CO) 



To start the game, type G C00 on the console device. Fol I 
instructions listed on the sign on message. 



ow 



On the console device a game of crap's will be demonstrated, 



Registers Modified: 

All . 



RAM Required: 

20 Bytes 



ROM Required: 

IK ROM iR 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

8080 Assembler 



Programmer: 

VAN HFRNinnN ANin r>AV F yp.k|jp H 



Company: 

J. M. PERRY INSTITIITF 



Address: 



2Q11 West Washing+n n AvPnno 



City: 
Yakima 



State: 

Washington QftQn^ 



© Intel Corporation. 1976 

12/6/77 



98-034D 

8-74 



MCS-80 KIT 
•G0C00 

THIS IS A DICE GAME. TO ROLL PRESS THE ESCAPE KEY. 
FIRST ROLL: 7 YOU W T I IvJ 

11 YOU VIM 

2 YOU HOSE 

3 YOU LOSE 

12 YOU LOSE 

IF NOME OF THE ABOVE THEM THIS NUMBER IS YOUP POIMT. 
ROLL AGAIN: AFTER ESTABL I SHIMG YOUR POIMT YOU MUST ROLL THIS NUMBEP 
TO WIN! BUT, ROLL A 2 OR 7 YOU LOSE. R 

GOOD LUCK ! ! 



, *¥ At •¥ 



\,l\ 


5 


ROLL AGAIN 


5,3 


8 


ROLL AGAIN 


2,6 


8 


ROLL AGAIN 


6,5 


11 ROLL AGAIN 


2,6 


8 


ROLL AGAIN 


3,6 


9 


ROLL AGAIN 


4,2 


6 


ROLL AGAIN 


6,2 


8 


ROLL AGAIN 


3,4 


7 


YOU LOSE 


5, 1 


6 


ROLL AGAIN 


2, 1 


3 


ROLL AGAIN 


5,4 


9 


ROLL AGAIN 


3, 1 


4 


ROLL AGAIN 


4,6 


10 ROLL AGAIN 


4, 1 


5 


ROLL AGAIN 


2,6 


8 


ROLL AGAIN 


3,6 


9 


ROLL AGAIN 


3,4 


7 


YOU LOSE 


2,6 


8 


ROLL AGAIN 


5,4 


9 


ROLL AGAIN 


1,5 


6 


ROLL AGAIN 


4, 1 


5 


ROLL AGAIN 


4, 3 


7 


YOU LOSE 



5,6 11 YOU WIN 

4,6 10 ROLL AGAIN 

1,6 7 YOU LOSE 

4.5 9 ROLL AGAIN 

6.4 10 ROLL AGAIN 
4, 1 5 ROLL AGAIN 
4,2 6 ROLL AGAIN 

1.6 7 YOU LOSE 

4, 3 7 YOU WIN 

5.5 10 ROLL AGAIN 



8-75 



Ref. #E28 



insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 Q8080 D8048 D8085 □ Other 



(use additional sheets if necessary) 



VDU DARTS 



A game of Darts on the MDS for two players with the board displayed 
on the VDU. Throws made by depressing a char on the console, the 
score being deduced from a time-slot for singles, doubles trebles 
outers, bulls and misses. Scoring starts at 201. (Th'is game was ' 
originally written for a freestanding 8080 System and VDU). 

MDS and VDU 



MDS Monitor I/O Rout in 



es 



AL = C 
(AC = C) 
Read 
G50 
Any console char to start game or to score. 



Dartboard Display 

Target Indicator 

Score per throw 

Players totals per turn 

"Well Done" or "Bust" messages, 



Registers Modified: 

ALL 



RAM Required: 
32 By tes 



ROM Required: 
1K 



Maximum Subroutine Nesting Level: 
4 



Assembler/Compiler Used: 

MDS MACRO ASSEMBI FR V. 



Programmer: 

Gerard L. Poo ley 



Company: 

Plessev Radar Limited 



Address: 

Cheaps i de 



City: 

L i verpoo 



State: 

Lancaster. ENGLAND 



© Intel Corporation, 1976 

12/6/77 



98-034D 

8-76 



Ref. #E29 



falsity mTEV USERS library submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/4040 D8008 08080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



HANG 



Hangman Word Guess Game 



MDS-800 
MDS-2DS 
Beehive Mini B-2 (CRT) 



Intel lec/MDS Monitor V2.0 
MDS-D0S V1.2 



Comes with a list of 20 secret words which may be easily 
expanded or modified. 



The image of a gallows is constructed on the CRT, and the secret 

word appears as underlined blanks underneath. 

The player enters his guess on the keyboard. A correct 

guess causes one or more blanks to be filled in the word. 

A wrong guess is displayed at the top of the screen, and 

causes a part to be added to the picture of the hanged man. 

The object of the game is to guess the word before the 

picture is completed. 



Registers Modified: 

ALL 



RAM Required: 

734 Bytes 



ROM Required: 



Maximum Subroutine Nesting Level: 

12 Bytes 



Assembler/Compiler Used: 

ISIS 8080 Macro Assembler, VI. 1 



Programmer: 

Bernard J. Verreau 



Company: 

NCR Corporati on 



Address: 

P.O. Box 607 Mitchel I Rd. 



City: 

Mi 



sboro 



State: 

Delaware 19966 



© Intel Corporation, 1976 

12/6/77 



98 -034 D 

8-78 



insite 



Ref.# E30 

INTEL* USER'S LIBRARY SUBMITTAL FORM 



D 4004/4040 D8008 IS 8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



BIORIM 



To print a graphical calendar plotting the operator's 
•BIORHYTHM 1 



MDS 800, Console Input, Line Printer, Disk Drive 



PL/M-80, ISIS II. 



Operator's name and date of birth. 

On loading under ISIS II program supplies its 
own instructions. 



Graphic calendar. 

Information about Biorhythms is now quite widely published 



Registers Modified: 



RAM Required: 
64 K Bytes 



ROM Required: 

None 



Maximum Subroutine Nestinq Level: 
8 



Assembler/Compiler Used: 
PL/M-80 V3.0 



Programmer: 

David N. Larkins 



Company: 

R.C.A. Jersey Ltd. 



Address: 
Rue des Pres, Longueville, 



City: 
JERSEY 



State: 

Channel Islands. 



© Intel Corporation, 1976 

4/78 



98-034D 
8-80 



Ref.#E31 



inSltg INTEL ' "SER'S LIBRARY SUBMITTAL FORM 



□ 8008 D 8048 £1 8080/8085 D 8086 D Other. 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



(uaa additional ahaata if nacaaaary) 



S la lorn Version 1 .4 

Game 

Swiss Ski Champions Worldcup 



MDS with Disk and CRT (9600 recommended) 
Line Printer optional 



ISIS-II 



Numeric Keys 1 to 9 on CRT for Tabulation 
Text in Dialog 



on CRT 

optional on Line Printer 



Registers Modified: 



RAM Required: 



ISIS + 10K 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



PL/M-80 



Programmer: 



Ulrich E. Sporri 



Company: UES electronics & 
— software 



Address: 



City: 



CH 8143 Stal I ikon 



State: 



Switzerland 



© Intel Corporation, 1978 

12/78 



98-034E 

8-82 



E 32 



insite 



INTEL" USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 □ 8048 3 8080/8085 □ 8086 □ Other 



(us* additional shsats If necessary) 



HORSERACE (game of,) 



Will play five games of horse race on the MDS-CRT 
or the built in CRT in Series II. 



MDS-800/220/230 

MDS-CRT (or any CRT that has compatable escape functions 

for cursor movement) 



ISIS-II disc operating system version 2.2 or 3.4 



All inputs are user prompted at the system console as 
what to enter. 



All outputs are displayed on the system console 



Registers Modified: All 


Programmer: Kerry Howell 


RAM Required: 48K 


Company: Almac/Stroum 


ROM Required: 2K MDS System Monitor 


Address: 18760 NW Rock Creek Circle 


Maximum Subroutine Nesting Level: N/A 


City: Portland #134 


Assembler/Compiler Used: Fortran-80 VI. 


State: Oregon 97229 



© Intel Corporation, 1978 

2/79 



8-84 



E33 

IllSlte" INTEL * "SERS LIBRARY SUBMITTAL FORM 



D 8008 D 8048 a 8080/8085 H 8086 □ Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



(um additional sheets if necessary) 



MASTtRMIND FOR SDK-86 



game of 
RULES 



logic 



SDK-86 



The computer sets up a 4-digit code. Each digit is 
in the range 9 to 5. The game is to break the code 
by typing in a series of guesses. For each guess, 
the program returns the following information: an 
"*" for each correct digit in correct position, and 
a "." for each correct digit in a wrong position. 
For example, if the computer sets up b02b and the 
player enters 3215, the program will type * 



PLM86 or ASM86, LINK-86, L0Q86, 0H86, SDK86, SDKlOb. LIB 



( I his program is available in PL/M86 or AbM86. 
Please specify version when ordering. Each 
version is considered one program.) 



Output 
Results 



Registers Modified: 



Al 



RAM Required: 



5K or SDK-86 Board 



ROM Required: 



None 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: PLM86 Or ASM86 



Programmer: 



Company: 



Address: 



City: 



State: 



© Intel Corporation, 1978 

2/79 



8-86 



_ _ E34 

IllSlt^ " INTEL * "SER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D 8048 W 8080/8085 D 8086 D Other 



(um additional ahaata If nacaaaary) 



TECH-NEL FRUIT MACHINE GAME, VI. 

Game program - performing functions of a fruit machine (one-armed 
bandit) 
- including: Random Hold, Full reel display and 
Plays /wins count 



MDS 



- Series II (210 or greater, with CRT display) 



MDS Monitor - Console out 

Console status 
Console in 

Key functions 



Display of reels /winning line/holds, etc 



Registers Modified: 



RAM Required: 



1.1K (object) 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



Programmer: 



Andy Bel ton 



Company: 



Tech-nel Data Products Ltd 



Address: P0 Box 1, 95 High St 



City: Brackley 



State: Nor thants, England NN13 5NN 



© Intel Corporation, 1978 



4/79 



8-88 



Ref. # E35 



insite 



INTEL" USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 □ 8048 CX 8080/8085 D 8086 □ Other 



(use additional sheets If necessary) 



MOUSE 

A mouse can be controlled on its way through the maze. Mouse 

can map the maze when bumps against the wall, but the less bumps 

the better. 



MDS 800, CRT /MiniBee/ cursor commands: ESC,H - home pos., 
ESC,J-screen erazing, ESC,A-up, ESC,B-down, ESC,C-right, ESC,D-left, 



CI and CO from MONITOR and subroutines from SYSTEM. LIB. 



Movement on the screen is controlled by typing 'F ", "B ", "L" and 
"R" standing for t , J, ,«-,-». »fe" displays the whole maze. One 
out of four gates must be chosen at the start. 



On the screen is displayed the outline of the maze with an exit and 
chosen gate. Free movement is displayed as "+" and wall as '$ " with 
a bell. When the exit is successfully reached the score /steps and 
bumps/ is displayed. 



Registers Modified: 



ALL 



RAM Required: 



cca 3.2K 



ROM Required: 



None 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: pl/M-80 V3 



Programmer: 



Dalibor NEMEC 



Company: 



Address: 



Pelhrimovska 339/9 



City: 



145 00 FRAHA-4. Michle 



State: Czechoslovakia 



6/79 



8-90 



SECTION 9 
RESIDENT LANGUAGE TRANSLATORS 



REFERENCE PROGRAM PAGE 

NUMBER 

Fl SMAL: SYMBOLIC MICROCONTROLLER ASSEMBLY LANGUAGE. . . . 9-1 

F2 ML8S: STRUCTURED ASSEMBLER FOR 8689 9-3 

F? LLL BASIC- 1 1 INTERPRETER 9-7 

F8 OCTAL DEBUGGING PROGRAM CODT FOR THE MCS-80 COMPUTER. . 9-9 
F9 4046 CROSS ASSEMBLER FOR INTELLEC 8/MOD 80 

AND MDS-800 9-11 

Fl© ASM08 MACRO ASSEMBLER 9-12 

Fll 8080 MACRO ASSEMBLER VERSION 4. 1 9-15 

F12 8008 MACRO ASSEMBLER VERSION 2. 9-17 

F13 SEQUENTIAL PASCAL COMPILER PAS80 VERSION 1. © 9-19 

F14 RIA80 9-23 

F15 LLL/CHERNACK BASIC INTERPRETER 9-25 

F16 PILOT-80 I SIS- 1 1 VERSION 2.0 9-28 

F17 LISP INTERPRETER 9-29 

F18 ASM - ON-LINE ASSEMBLER 9-3:1 

F19 8086 TINY BASIC 9-22 

F20 STAGE 2 9-35 



8/79 



Ref. No. Fl 



msit£ 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 (38008 [3 8080 D3000 □ Other. 



(use additional sheets if necessary) 



SMAL: A Symbolic Microcontroller Assembly Language 

This program is an editor/assembler combination for a simple 
microcontroller which can be constructed from only a few TTL 
packages. The microcontroller is intended for use in periphera 
ROM driven circuitry in the microcomputer environment. The 
assembler produces machine code in the Intel "hex" format, 
suitable for ROM programming. 

Intel lee 8 or Intel lee /Mod 80 (or equivalent) with at least 
8K 



No additional software is required for run-time support, 
although the 8008 or 8080 resident monitor is useful for 
loading the program. 

Assembler language source, along with editing commands 



Annotated assembler language listing, along with two "hex" tapes 
for high and low order bytes for each location. 



NOTE: 



This program is not supported by Intel. 
For more information or assistance in 
operation contact the author. 

PAPER TAPE AVAILABLE IN OBJECT CODE WITH 
A SOURCE LISTING. DISKETTE IS OFFERED IN 
SOURCE CODE. 



Registers Modified: 
Al I 



RAM Required: 

Variable - 8K nomina 



ROM Required: 
None 



Maximum Subroutine Nesting Level: 

unknown - Stack size 16 bvtes 



Assembler/Compiler Used: 
PL/M (8080, Vers 1.0) 



Programmer: 

Gary A. Ki Mai I 



Company: 

Naval Postgraduate Srhnn 



Address: 
Code 72Kd 



City: 

Monterey, Ca I i f orn i a 



State: 



© Intel Corporation. 1976 



98 034 C 

9-I 



Ref. No. F2 



insit^ " INTE L' users LIBRARY submittal form 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D4004 D4040 D8008 08080 D3000 D Other. 



(use additional sheets if necessary) 



ML80 Structured Assembler for the 8080 

Macroprocessor, assembler, and loader which translate 8080 
assembly language with control structure to relocatable object 
code. 



8080 developmental system with disk storage 



Disk operating system which provides a file structure allowing 
sequential access to at least four files 



ML80 assembly language source 



Macroprocessor produces an ASCII file which is read and translated 
to relocatable code. 



[ NOTE:" 



This program is not supported by Intel. For 

more information or assistance in operation contact 

the author. 

Program offered on diskette only. 
DISKETTE IS OFFERED IN SOURCE CODE. 



Registers Modified: 
All 



RAM Required: 
I2K (excluding DOS) 



ROM Required: 
_Q_ 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
PL/M version 2.0 



Programmer: Luiz Pedroso 
(contact Gary Ki Idal I) 



Company: 

Naval Postgraduate School 



Address: 



City: 
Monterey 



State: 

California 0^0,40 



Intsl Corporation, 1976 

8/78 



9-3 



98 034C 



Ref. No. F3 



insite 



INTEL 9 USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 08080 D3000 □ Other. 



(use additional sheets if necessary) 



BASIC/M Translator and Interpreter 

Translator compiles BASIC/M programs to pseudo machine code; 
interpreter loads and executes the pseduo code. BASIC/M 
programs are stored in a diskette file. 



MDS system with 32K RAM, CRT, and floppy disk drive(s) 



ISIS, version 1.0 or above. 



BASIC/M program (see BASIC/M user's manual) 



Program execution. 



NOTE: 



This program is not supported by Intel. For 
more information or assistance in operation 
contact the author. 

PAPER TAPE AVAILABLE IN OBJECT CODE WITH A 

SOURCE LISTING. DISKETTE IS OFFERED IN SOURCE CODE. 



Registers Modified: 
Al I 



RAM Required: 



ROM Required: 




Maximum Subroutine Nesting Level: 
All 



Assembler/Compiler Used: 

PL/M and 8080 Macro Assembler 



Programmer: j.j. Logan and 
K.A, Kildall 



Company: 

Digital Research 



Address: 



City: 

Paci fie Grove 



State: 

Ca . 93Q^n 



© Intel Corporation, 1976 



9-5 



98 034C 



insite 



Ref. #F7 

INTEL* USERS LIBRARY SUBMITTAL FORM ~ 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 8008 D 8048 0(8080/8085 D 8086 D Other 



(uss additional shaats if necessary) 



LLL BASIC-II INTERPRETER 

This BASIC interpreter was designed to operate with the MCS-8080 
microprocessor. It consists of an 8K-byte-R0M resident interpreter 
used for program generation and debug. 

The goal in developing the 8080 BASIC was to provide a high-level, 
easy-to-use language for performing both control and computation 
functions in the MCS-8080 microprocessor. It was necessary, therefore, 
to limit the commands to those considered the most useful in micro- 
processor applications. With not too many exceptions, it conforms 
to the standards expressed by the ANSI committee, X3J2, on Minimal 
Basic. 

8080 Microcomputer System Terminal Input 
Device independent I/O 

Manual supplied with program 

Revised 12/78 

Manual supplied with program 

NOTE: 

This program is not supported by Intel. For more 
information or assistance in operation contact the author. 




Available in source code on diskette 
for $35.00 











Registers Modified: 

ALL 


Programmer: 


Eugene Fisher 


RAM Required: . , _ 

As required for user space 


Company: 


Lawrence Livermore Lab. 


ROM Required: 8K byte 


Address: 


Box 808 L-403 


Maximum Subroutine Nesting Level: 


City: 


Livermore 


Assembler/Compiler Used: ISIS- 1 1 ASM-80 


State: 


CA 94550 



© Intel Corporation, 1978 

2/79 



98-034E 

9-7 



insite 



Ref. No. F-8 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 08008 IS 8080 D3000 □ Other. 



iuse additional sheets if necessary) 



OCTAL DEBUGGING PROGRAM (ODT-80) FOR THE MCS-80 COMPUTER 

ODT-80 is an octal debugging routine for use on the Intel 8080 micro- 
processor. This routine provides the capability to examine and modify 
all of the memory that is available to the microcomputer and transfer 
program control to the created program. ODT-80 makes use of simple key- 
board commands from any terminal— such as a teletypewriter— that is 
attached to the system. 

The minimum system requirements for using ODT are as follows: 
. MCS-80 computer set 
. ODT programmable read only memory (PROM) at memory page 000 



256 word (RAM) at page 010 
Teletype interface 



None 



See attached description, 



See attached description. 



NOTE: 



This program is not supported by Intel. For 
more information or assistance in operation 
contact the author. 

PAPER TAPE AVAILABLE IN OBJECT CODE WITH A 

SOURCE LISTING. DISKETTE IS OFFERED IN SOURCE CODE, 



Registers Modified: 
All 



RAM Required: 

Stack in ADR 0l0 ft 000 8 



ROM Required: 
256 Bytes 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
8080 Assembler 2.2 



Programmer: 
Eugene Fisher 



Company: 



Lawrence Livermor-P J ahnr«+r, r y 



Address: 
Box 808 L-403 



City: 
Li vermore 



State: 

Ca. 94550 



© Intel Corporation, 1976 



9-9 



98 034 C 



■ ■■ TM 

insite 



Ref.#F9 



INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



8/8/77 



□ 4004/40 D8008 D8080 D8048 D8085 D3000 D Other. 



(use additional sheets if necessary) 



4040 Cross Assembler for Intel lee 8/Mod 80 and MDS-800 



REVISED 8/8/77 



CAUTION: 



1. 
2. 



This program is not supported by Intel Corporation, 

This program works only with the 8080 MDS Macro 
Assembler Version 1.0 and the Intel lee 8/Mod 80 
Macro Assembler Version 3.0. Modifications for 
other versions of the assemblers may be very 
difficult and requires knowledge of PL/M. 



NOTE ; 

This program is not supported by Intel. For more 
information or assistance in operation contact the 
author. Diskette available in object code only. 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 

8080 MDS Macro Assembler Version 1.0 



Programmer: 



Company: 



Address: 



City: 



State: 



Intel Corporation, 1976 



9-11 



98 034 D 



insite 



Ref. # F10 



INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 



Required 
Software 



Input 
Parameters 



Output 
Results 



[28008 □ 8048 □ 8080/8085 □ 8086 □ Other 



(us* additional ahaata if nacaaaary) 



ASM08 MACRO ASSEMBLER 



R 



MACRO assembler for 8008 on Intellec MDS 



R 



Hardware Intellec MDS 



Monitor, ISIS-I 



Operation is identical to operation of 8080 assembler on Intellec MDS 
User's standard Intel 8008 Assembly language 



No source code is available for this 
product. Diskette and Paper Tape 
available in object code only. Source 
listing can be ordered from Insite for 
a prepaid $15.00 handling fee. 



Registers Modified: 



RAM Required: 



8K 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



Programmer: 



Company: 



Address: 



City: 



State: 



6/79 



9-13 



Ref. # Fll 



insite 



INTEL* USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 3Q8O8O D3000 □ Other. 



(use additional sheets if necessary) 



80 80 Macro Assembler Version 4.1 
Assembles 8080 Assembly Language Programs 



REVISED 4/8/77 



Intellec MDS 



MDS Monitor 



An Assembly Language Program on Paper Tape 



Assembled Text Listing (with error codes, if any) 
Machine Code/Hex Object Code 



Source listing available from Insite for a 
prepaid $15.00 handling fee. Paper tape 
is not available except when ordering sys- 
tem. Program Diskette not offered. 



Registers Modified: 

All 


Programmer: 


RAM Required: 

8K bvtes 


Company: 


ROM Required: 


Address: 


Maximum Subroutine Nesting Level: 


City: 


Assembler/Compiler Used: 

PL/M 


State: 



© Intel Corporation, 1976 
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98 034 C 



Ref. § F12 



insitg INTEL ° "SER'S LIBRARY SUBMITTAL FORM 

O4004 D4040 8 8008 D8080 D3000 D Other 



(use additional sheets if necessary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



8008 Macro Assembler Version 2.0 
Assembles 8008 Assembly Language Programs 



Intellec 8/Mod 80 



8008 Monitor I/O 



Assembly Language Program File 



Listing of Assembled Text (with error codes, if any) 
Machine Code 
Hex Object Tape 



Source listing available from Insite for a 
prepaid $15.00 handling fee. Paper tape 
is not available except when ordering sys- 
tem. Program' Diskette not offered. 



Registers Modified: 



All 



RAM Required: 



8K bvtes 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



PL/M 8008 



Programmer: 



Company : 



Address: 



City: 



State: 



<?> Intel Corporation. 1976 
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98 034C 



Ref. § F13 



JnSJtp" INTEL * USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004 D4040 D8008 638080 D3000 G Other. 



(use additional sheets if necessary) 



Ik^dQ, Ver 1.0, Sequential PASCAL Compiler 

To provide a sequential PASCAL compiler and virtual machine 
implementation for the Intel 8080A microcomputer. 



Intel Intellec Microcomputer Development System (MDS) with- 
64K HAM 
Dual Floppy Disks 



All the required software is provided to compile and execute 
sequential PASCAL programs within the MDS ISIS-II 
environment. However, in order to modify the PAS80 program 
.he user will need the PL/M-80 compiler, the ISIS-II Link 
and Locate programs. 

The input to the PAS80 program is a virtual machine code 
file which is to be executed. When the virtual machine code 
file for the sequential PASCAL compiler is executed by 



PAS80, a source file written in 
language is then expected as input. 



the sequential PASCAL 



Compiled listings and virtual machine code 
produced by the sequential PASCAL compiler. 



files are 



Paper tape not available. Program available 
on Diskette only. User's Manual and Language 
Definition Manual included. 



Registers Modified: 


Programmer: -. _ , 

Thomas A. Rolander 


RAM Required: 


Company: 


ROM Required: 


Address: 1012 Smith Ave. 


Maximum Subroutine Nesting Level: 


City: 

Campbell 


Assembler/Compiler Used: 


State: 

California 95008 



© Intel Corporation. 1976 
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Ref. # F13 



insiW intel: users library submittal form 



PAS80: (Continued) 
Description: 

PASCAL is a general purpose language for structured 
programming developed by Niklaus Wirth. The sequential 
PASCAL compiler, written by Per Brinch Hansen and Alfred C. 
Hartmann of Caltech, generates code for a virtual machine. 
The author has simulated the virtual machine with a real 
machine, the Intel Intellec Microcomputer Development System 
(MDS). The PAS80 program, which is the implementation of 
the virtual machine, is written in PL/M-80. 

The software is distributed on two non-system disks 
containing: the PAS80 program, the sequential PASCAL 
compiler in virtual machine code form, the PL/M-80 source 
code for PAS80, and the source code for the entire 7 pass 
sequential PASCAL compiler written in sequential PASCAL. 
Thus, PAS80 will enable the user to self-compile the 
sequential PASCAL compiler. 

Implementation Considerations: 

Emulating a 16 bit virtual machine using PL/M-80 on the 
Intel 8080A certainly does not produce a high-speed real 
machine. However, compilation and execution speeds are 
tolerable, particularly for environments in which the 
language PASCAL is used for educational purposes. 

Ver 1.0 of PAS80 does not support floating point 
operations. However, all of the required hooks have been 
incorporated, facilitating future implementation. 

Compiler Support: 

No warranty is expressed or implied by either the author or 
the writers of the sequential PASCAL compiler. 

Compiler documentation is supplied in the form of 
syntax graphs, a programming example and the source code for 
the compiler. 



© lnt«l Corporation. 1976 
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Ref.# F14 



JnSJt^ INTEL ® USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/4040 D8008 &8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



RIA80 



Interpretive Assembler that runs on an Intellec 8/MOD80 
or on any SBC system with an SBC-910 system monitor. 
(See additional sheets.) 



Intellec 8/MOD80 or any SBC system with an SBC-910 system 
monitor, e.g. system 80/10 or SBC-80P. 



Teletype 



Intellec system monitor vers. 3.0 or SBC-910 system monitor 



Starting address of the program to be assembled 
Assembly language program. 



Assembled program in RAM at address specified. 
Complete listing of address, machine code, and assembly 
language nmemonic for each instruction. 



REVISED 4/78 



Registers Modified: 
ALL 



RAM Required: 

10 Bytes + Stack 

ROM Required: 1740 Bytes (Intellec) 
1751 Bytes (SBC) 



Maximum Subroutine Nesting Level: 
8 



Assembler/Compiler Used: 

MDS 8080/8085 Assembler VI. 



Programmer: 

M. A. PORDES 



Company: 

GEC Hirst Research Centre 



Address: 

East Lane, Wembley, Middx, 



City: 
London 



36&&: 
ENGLAND 



© Intel Corporation, 1976 
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Ref.#F14 



insit^ INTEL * users library submittal form 

D4004 D4040 D8008 E8080 D3000 D Other 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



(use additional sheets if necessary) 



Output 
Results 



RIA80 

Interpretive Assembler that runs on an Intellec 8/MOD80 or on any 
SBC system with an SBC-910 system monitor. (See additional sheets). 



Intellec 8/ftOD80 or any SBC system with an SBC-910 system monitor, 

e.g. system 80/10 or SBC-80P. 

Teletype. 

Intellec system monitor vers. 3.0 or SBC-910 system monitor. 



Starting address of the program to be assembled, 
Assembly language program. 



Assembled program in RAM at address specified. 

Complete listing of address, machine code, and assembly language 

mnemonic for each instruction. 



Registers Modified: 



ALL 



RAM Required: 



ROM Required: 



10 Bytes + Stack 

tykO Bytes (Intellec) 
1751 Bytes (SBC) 



Maximum Subroutine Nesting Level: Q 



Used: 
A 



ssembler V1.0 



Programmer: M-A# pordes 



Company: GBC Hir6t Research Centre 



Address: g^ LanQ ^ Wembley< Middx . 



City: 



London 



ENGLAND 



9-23 



ria8o 

RIA80 is an Interpretive assembler designed to run on the Intellec 8/MOD80 
or, with a few modifications on any SBC 80/10 system that utilises the SBC - 
910 system monitor. A major advantage of RIA80 is that it occupies less than 
2K bytes of memory, thus allowing the assembler to be run on a single SBC 
80/10 board without the need for additional memory boards. 

RIA80 will assemble all of the standard 808O instructions as defined in 
the 8080 Assembly Language Programming Manual, with the following exceptions: - 

1 ) No labels are allowed 

2) The only pseudo-instructions allowed are ORG, END, DS, DB, and DW 

3) No operators are allowed 

4) The assembler will not accept decimal, binary or octal numbers. 

All numbers input to the assembler are assumed to be in hexadecimal, typing 
an H after any hexadecimal number is optional. Also it is not necessary to type 
a before a number that starts with A - F. 

Operating Instructions 

On starting the program the assembler will print the pseudo-instruction ORG, 
at which point the user must type in the address of the area in RAM into which 
the assembled program will be placed. The user can then proceed to enter his 
program • 

When entering an instruction the code part of the instruction must be 
separated from the operand (if any), by a single space. 

If an illegal instruction is entered it is either thrown out immediately 
or when the appropriate delimiter is typed in, allowing the user to re-enter 
his instruction. 

The data part of the instructions MVI and CPI , can, as well as being a 
hex. number be any Ascii character providing the character is enclosed within 
single quotes ( • ) . 

DB instructions can consist of a sequence of hex. numbers, a string of 
Ascii characters (providing the string is enclosed within single quotes), or 
a combination of the two types. The maximum length of "list" is ten hex. 
numbers or Ascii characters. 

cont . . . . / 2 
4/78 9 _ 24A 



- 2 - 

Comments can be added to any instruction by typing a semicolon ( ; ) 
immediately after entering the instruction. The comment can be of any length 
and is terminated by typing carriage return (CR). 

The pseudo-instruction ORG, followed by an address, can be entered any 
time during the assembly allowing the user to assemble different parts of his 
program at different addresses. 

When all the instructions in the program have been entered, the pseudo- 
instruction END is typed to terminate the assembly. 

Examples of all the above points are given in the test program. 

Modification To Run On An SBC-80/10 

To run RIA80 on an SBC-80/10 system with an SBC-910 system monitor the 
following changes should be made to the assembler: - 

1) The statements following the label EX11 

MOV D,A 

CALL NIBBLE 

JC EX21 
should be changed to 

MOV D,A 

CALL VALDG 

JNC EX21 

CALL CNVBN 

2) An additional subroutine must be added to read characters from the 
teletype. The subroutine has been labelled TI to allow for already 

existing references to this label to remain unchanged in the program. 

TI : CALL QETCH 
CALL CO 
MOV A,C 
RET 

3) All references to Intellec 8/toOD80 system monitor routines (apart from 
(1) and (2) above) should be substituted by the corresponding SBC-910 
system monitor routines as follows: - 

LBYTS should now be INUST at address 2B2H 
MNTR '» " " NMOUT " " 202H 

cont. ... / 3 
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/ 



- 3 - 

CI should now be CI at address 1D5H 

CKLF » " " CROUT " » 1F3H 

NIBBLE " » " CNVBN " " 1DFH 

LADR " » " ADRD » » 1A8H 

CO '« » » CO »' » 1E8H 

In addition TI should be removed from the table at the beginning of the 
program, and GETCH (at address 220H) should be added to the table. 



4/78 9-24C 



Ref.# F15 



■ ■ ■ TM 

insite 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/40 D8008 ft 8080 D8048 D8085 D3000 □ Other. 



(use additional sheets if necessary) 



LLL/CHERNACK BASIC INTERPRETER 

Modified LLL BASIC to run under ISIS-II, LOAD and LIST programs to 
ISIS-II filenames. 



ISIS-II hardware configuration. 



ISIS-II software configuration. 



See attached documentation. Attached DISKETTE contains all sources, 
object file, and appropriate .CSD files to re-create BASIC or to 
Run BASIC under ICE-80. 



Note: Source available on 
Diskette only for $35.00. 



Registers Modified: 



RAM Required: 



ROM Required: 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 



Programmer: 
Charles Chernack 



Company: 
Consultant 



Address: 
1034 East Rose Circle 



City: 
Los Altos, 



State: 
California 94022 



1> Intel Corporation, 1976 
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NOTES: Chernack/LLL MPS/DOS BASIC Version " C" 

^VsTC^/i! 3 mod " lca 1 tion of LL L BASIC from the INTEL User's Library, 
minor rll t T relocatable > «"<» broken down into modules. Only very 

minor changes have been made to the Interpreter. 

A new command, HELP, has been added, which simply lists all the commands. 

A new command, EXIT, has been added, which returns to ISIS-II. 

A new command, LOAD, has been added, which must be followed bv an ISTS 7T f,-i„ 

T X? EDITOR' i t ill T J° ad . fl * AS 1 C Pr ° 8ram " hlCh " aS been criated'h "bI " bf e ^ 
LOM " ' e "^ ct " el y 'appends' the program to the BASIC Program Area The 
LOAD is terminated by end-of-file or by the first line which starts with a non- 
numeric character. However, if termination is via a line which starts titt „ 
numeric rhflrsrtor «->,.,+- i • " e wmcn starts with a non- 

numeric character, that line is interpreted as a command. Thus, if the last line 
of your program is LIST or RUN, the program will be listed or RUN after it is 
loaded. You should be able to do chain-loads this way as well. 

^""0^1^ "w ra ° difled S ° *" y °" "" "^ Spe " fy the ™^ in ""« 
* T the list, but you can specify an ISIS-II filename. Thus, you can use 

If LIST T ,r m Tf ° S T/ r ° 8rMS ° n the dlsc > ° r "« 'bem to the ine printer 
If LIST is not followed by a filename, it will list on the :C0: file. Prlnter - 

with'READv' T ° f a I"™ 1 " 8 Pr ° 8ram by P ressin § INTERRUPT 7, which will return 
with READY You can also stop a running program which is doing output by hitting 

the space bar on the CRT. y n - LULin 8 

the" LLL B^SlVwrntr 1 "' 6 ," " locatable subroutines. The SUBS table, described in 

called BASIC7 OBJ Z' TJTf* ^ * { ^ s ^™& relocatable module 

"„ d BASIC7 OBJ. There are 20 blank locations (DS 20) which you can use with an 
absolute overlay, or you can replace BASIC7.0BJ with a module of your own choosing. 

BASIC must be loaded such that the code segment starts at around 3400H This is 
because there is still an absolute block between 3200H and 32AAH which is used 
as common." On the source disc, there is a file called MAKIT.CSD which will make 
an absolute version of BASIC from its relocatable modules. 

BASIC uses MDS MONITOR subroutine MEMCHK to determine where the end of memorv is 
much „% T T/n ^ " °" 32K ' 48K ' and 64K mS sy^™- Normally BlsiC will do 

then lUyr\ V T* 1SlS ' 11 SyStem Calls; however « locati - "°H ™ set to 76H 
then BASIC knows that ISIS-II system calls may not be used, and will autoLticallC 

"I fal ows^BASl'to 11 : °° ^ 7 Subr ° U " n " in ^he ™OR. The automat™ w n- 
Zl%rl «n rUn Under ICE " 80 - Note that file BASICE.CSD sets up for a 

tit l "T 10 "- ^^ TP1 UU1 haVe t0 be chan S ed < See BASIC1.C00) if you use 

mus store^the^ASTr ^ LTPERLIMIT ^™ *"•> ICE-80. Remember that ICE-80 
must store the BASIC program symbols someplace, and there are quite a few of them. 

to find d s ™bol b S S U p,r r^^ f ° r /° Ur aSSembly C3llable subroutines, you will have 
THist n^r TP0 is BASIC1. SoT^ ^ ^^ <" ^ ^"^ *™ »»" ™»- 

You will note that this is a rather patch-up job, but it may be some time before I 
get an update out and perhaps some may find this useful. 
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lf is fairly easy to add commands such as DELETE filename, WRITEPROTECT filename, 
e c to BASTC the wav it is now written. Also ISIS errors are not reported very 
well, and the ETEST routine is EASIC1 can be enhanced quate a bit. 

point package now in BASIC. 



BUGS: (1) Sometimes the first LOAD : FN :XXXXXX .XXX will hang up. Re-boot and 
all will be well. 
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Ref. #F16 



insite 



INTEL 8 USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardwire 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 D8080 D8048 IS 8085 □ Other. 



(use additional sheets if necessary) 



PILOT- 80 Ver.2.0 - INTERPRETER 

PILOT is a programming system for controlling interactive 
conversations. It can be used as an author language for 
computer-assisted instruction. Designed to be simple in 
its syntax, PILOT allows those without prior computer 
experience to easily learn to control its features. Dialogue 
programs can be rapidly constructed and tested. 

ISIS-II Hardware Configuration 



ISIS-II Software Configuration 



PILOT-80 program (see PILOT-80 User's Guide) 



Program execution 



Source available on 
diskette only for $35.00 
Source listing 
available for $15.00. 



Registers Modified: 
ALL 


Programmer J0HN STARKWEATHER & 
RON WILLIAMS 


RAM Required: 
4K & 2K Editor & Program Requir 


Company: 
sments 


ROM Required: 


Address: 


Maximum Subroutine Nesting Level: 


City: 


Assembler/Compiler Used: 

8080/8085 MACRO Assembler V2.0 


State: 



© Intel Corporation, 1976 
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Ref.# F17 



insite 



INTEL® USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 K8080 D8048 D8085 □ Other, 



(use additional sheets if necessary) 



LISP INTERPRETER (8080 resident) 

Provide input and output of LISP data structures, and 
interpretation of LISP expressions. Functions supported 
include DEFINE, CAR, CDR, CONS, ATOM, EQ, LAMBDA, LABEL, 
QUOTE and COND, CADR, CADDR, NULL, EQUAL, PAIRLIS, ASSOC, 
EVAL, APPLY. 

Terminal, up to 32K of RAM addressed below 8000H. 



Terminal driver with read and write character entries ; 
monitor program which CALLs interpreter with stack setup, 
with entry point for interpreter abort. 

Functions and arguments in LISP to be interpreted: via 
terminal input. Except for DEFINE, all functions are 
required to be pure LISP functions. 



Results of applying functions to arguments are listed on 
terminal . 



Registers Modified: 
ALL 


Programmer: 
Darrel J. Van Buer 


RAM Required: 

Up to 32K (below address 8000H) 


Company: 
SELF 


ROM Required: 

1731 bytes for program 


Address: 
1522 Brockton Ave. , Apt 5 


Maximum Subroutine Nesting Level: Limited only 

by expression complexity 


City: 
Los Angeles 


Assembler/Compiler Used: 

Intel compatible assembler 


State: 
California 90025 



© Intel Corporation, 1976 
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Ref.#F18 



insite 



INTEL" USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 058080 D8048 D8085 D Other, 



(use additional sheets if necessary) 



ASM - ON-LINE ASSEMBLER 

Allows instructions to be entered by mnemonics rather than absolute 
binary for experimental or debugging purposes. Especially useful on 
small machines without much I/O capability. Not useful for production 
programming. 



1 k bytes of ROM if an INTEL debugging monitor or similar piece of 
software is avialable, and slightly more if not; enough RAM for a 
minimal stack and to hold assembled code; terminal interface. 



Intel monitor would reduce memory requirement but is not necessary. 



8080 mnemonics are typed in from the ternimal . Operands are also 
accepted (all numbers are in hex, and characters can be assembled 
by enclosing them in quotes) although labels and expressions are not 
allowed. The following pseudo-operations are supported; ORG (addr), 
DB (byte-list), END (addr) 



Code is assembled directly into memory. No object code is produced 



Available on non-system 
diskette for $25.00; 
paper tape for $15.00. 



Registers Modified: 

All 



RAM Required: 

(as desired by user) 



ROM Required: 

1 K byte 



Maximum Subroutine Nesting Level 

4 (8 bytes) 



Assembler/Compiler Used: 

MDS MACRO Assembler 



Programmer: 

Bruce C. Wright 



Company: 

Duke Medical Center 



Address: 

Box 3181 



City: 

Durham 



State: 

North Carolina 
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insite 



F 19 



INTEL* USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 8008 D 8048 D 8080/8085 S*8086 D Other 



(uaa additional shaata if naeaaaary) 



8086 TINY BASIC 



A very small ( <1K of Code) Basic interpreter. 26 variables 
(A-2) and 1 array (@). Statements recognized include G070, 
RUN, NEW, FOR, NEXT, LET, IF, STOP 



MDS or EMDS with at least 2 empty slots 
SDK-86 or SBC-86 board 



SDK-86 or SBC-86 Program 



None, Tiny Basic has no input parameters. Once it is 
running it accepts console input in the form of Basic 
Commands . 



Program offered on 
diskette only for $35.00 



Registers Modified: 


Programmer: Bob Glossman 


RAM Required: 


Company: Intel 


ROM Required: 


Address: SCVI MS 6-226 X5169 


Maximum Subroutine Nesting Level: 


Cit Y : Santa Clara 


Assembler/Compiler Used: A.SM86 


State: CA 95051 



© Intel Corporation, 1978 

2/79 



9-33 



insH£ 



F 20 



INTEL" USER'S LIBRARY SUBMITTAL FORM 



D 8008 □ 8048 $ 8080/8085 □ 8086 D Other 



(us* additional ahaata if nacaasary) 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



STAGE 2 



STAGE 2 is a language independent macro processor developed by 
prof. William M. Waite of the University of Colorado. It is 
primarily intended to be used to omplement machine independent 
software by means of abstract machine modelling, but it is 
suitable for use as a prepass for any language translator for 
purposes of providing macro capability. 

MDS 800 Intellec Microcomputer Development System with console 
device diskette drive(s) and controller, at least 48K RAM memory 



ISIS- I I Operating System 



Channel assignments equivalencing STAGE 2 channels with ISIS-II 
files and devices. This implementation of STAGE 2 supports 
inie non-dummy I/O channels. 



User defined 



Program offered 
on diskette only 
for $35 



Registers Modified: 


Programmer: 

Bruce W. Ravenel 


RAM Required: 

48K minimum 


Company: 

Intel - MCD Software Devi 


ROM Required: 


Address: 

3D65 Rnwprs Avp. 


Maximum Subroutine Nesting Level: 


Cit v : Santa Clara 


Assembler/Compiler Used: 


state: Ca. 95051 



© Intel Corporation, 1978 
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SECTION 18 






CROSS REFERENCE TO PL/M PROGRAMS 




REFERENCE PROGRAM 


PAGE 


NUMBER 






AB19 


TERMINAL EDITOR 


4-124 


HBc^X 




4-136 


n c? cL o 


PROPORTIONAL POWER CONTROL IMAGE BUILDER 


4— 165 


AB77 


LOAD 


4— 38fi 


AB182 


MDS BACK TO BACK DATA TRANSFER 


i«|. — I«J. J" b|. 


AB138 


FORMFD: FORMFEED TO LINEFEED CONVERSION PROGRAM. . 


4~ 642 


AB132 


ALPHA: AN ALPHABETIZED LISTING 




AB145 


TEXT PROCESSOR/TEXT EDITOR 


4-788 




OF THE DISK DIRECTORY 


4—653 


AB159 


KEYWORD FILE SEARCH FOR ISIS- 1 1 ENVIRONMENT. . . . 


4-739 


AB161 


KAPIAR, VI. 2 - GENERAL PURPOSE MACORPROCESSOR. . . 


4-743 


AB164 


D0WN88 - DOWNLOAD FROM SERIES- I I TO PROMPT-88/85 . 


4-749 


AC14 


MP 8288 A/D CONVERTER ROUTINE 


4—277 


AD 6 


8889 - BREAK. 89 — 8889 BREAK POINT ROUTINE .... 


.4 — ?KT""? 

4— i- D t 


AE18 


DKDUMP 


4—~?~~- 


BA1 


BCD SUM FOR 8888 


!=i-54 


bbci.ii 


DOUBLE PRECISION MULTIPLY. ... 


t= i-120 


t?tr*g!.o 


RMSTF. . . . 


5—162 


BB31 


FIXED POINT CHEBYSHEV SINE AND COSINE 






FOR PL/M U'-.ERS 


5-171 


E'E'j--t' 


RANDOM NUMBER GENERATOR 


5—189 


BB39 


PL/M HISTOGRAM PROCEDURE AND RANDOM NUMBER 










BB48 


RANDOM$BITS 


5-284 


BC7 


FLOATING POINT PROCEDURES 


5-91 


BC8 


PL/M FLOATING POINT INTERFACE 


E~* ^^ i^t **y 


BC9 


FLOATING POINT DECIMAL AND HEX FORMAT CONVERSION . 


^ — Ciss: 


BC19A 


ASCII STRING TO INTEL FLOATING POINT NUMBERS . . . 


5-262 


BC19B 


INTEL FLOATING POINT NUMBERS TO ASCII STRING . . . 


•— .' ***" cl O O 


BC38 


FnriNST 


5-~:17 


BC32 


FPAL - EXTENDED J-1ATH PACKAGE 


. H i „. i^, jl 


C28 


ALIGN PROGRAM — INTERMEDIATE PASS BETWEEN 






PL/M PASS 1 AND 2 


6—59 


C33 


SIM48 - 8848 SIMULATOR 


6—74 


Dl 


QUICKSORT PROCEDURE 


7-1 


D18 


SKILLSORT 


"7 — . ~ - C| 


D28 


TIMESHARING COMMUNICATIONS 


t —4 f 


D26 


TELEPROCESSING BUFFER ROUTINE 


(' ~~ i' jj. 


D35 


TYPE K. T. C. LINEARIZER < PROCEDURE) 




D64 


FILES - PL/M UTILITY PROCEDURES 


7-281 


E6 


MASTERMIND 


8-13 


E8 


GAME OF LIFE 


;=;„•-. ft 



8/79 



El© 

E31 

ESS 

E35 

Ql 

G3 

G6 



KflLRH 

SLALOM VI. 4 

MASTERMIND 86 

MOUSE 

CLI - RMX-80 COMMAND LINE INTERPRETER 
MINITH - RMX MINIMAL TERMINAL HANDLER 
RMX/80 DEMONSTRATION PROGRAM WITH TIME 



8-20 
8-82 
8-86 
8-90 
11-1 
11-8 
11-17 



SECTION 11 



RMX-S8 



REFERENCE 
NUMBER 



PROGRAM 



PAGE 



Gl CLI - RMK-80 COMMAND LINE INTERPRETER. 

Q2 WRMIN - RMX MINIMAL TERMINAL OUTPUT 

Q3 MINITH - RMX MINIMAL TERMINAL HANDLER. 

G4 RMX/88 - BASED KEVBOARD INPUT HANDLER S 

G5 RMX/88 DRIVER FOR ISBC534 - HND534 

G6 RMX/88 DEMONSTRATION PROGRAM WITH TIME 




Or I J 



insite 



Ref. #G1 

INTEL* USER'S LIBRARY SUBMITTAL FORM ~ 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 H8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



CLI - RMX-80 Command Line Interpreter 
Provides operator control of RMX tasks. 



SBC 80/20 



RMX/80 Nucleus, Free Space Manager Terminal Handler 



A command line read from the terminal handler. The first word is tested 
against a list of keywords CLI received from other tasks. If a match 
is found, CLI sends the command line to the exchange associated with 
the keyword. 



RMX 80 Users Guide $5.00. 
Available from Literature. 



Note: Source available on 
diskette only. 



Registers Modified: 
ALL 


Programmer: 
KEN BURGETT 


RAM Required: 
46 


Company: 

DHARMA SYSTEMS 


ROM Required: 
988 


Address: 

21950 McKEAN RD 


Maximum Subroutine Nesting Level: 
2 


City: 

SAN JOSE 


Assembler/Compiler Used: 
PL/M, V3.0 


State: 

CALIFORNIA 95120 



© Intel Corporation, 1976 



98-034D 



J 2/6/77 



11 -J 



Ref. #G2 



mSltft" INTEL ^ USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 $8080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



WRMIN - RMX Minimal Terminal Output 

Provides a terminal handler output task for software operating 
under RMX/80. 



SBC 80/20 



RMX/80 Nucleus 



The WRMIN task performs similar functions to the THDINI task 
of the RMX/80 Terminal Handler. It uses the same output request 
exchange (RQ0UTX) and message format as described in the RMX/80 
User's Guide. 



See application Note AP33 



Note : Source available on 
diskette only. 



RMX 80 Users Guide $5,00. 
Available from Literature. 



. 1 


Registers Modified: 

ALL 


Programmer: 

THOMAS R0LANDER 


RAM Required: 

15 


Company: 

DHARMA SYSTEMS 


ROM Required: 

74 


Address: 

21950 McKEAN RD. 


Maximum Subroutine Nesting Level: 


City: 

SAN JOSE 


Assembler/Compiler Used: 

8080/8085 MACRO ASSEMBLER 


State: 

CALIFORNIA 95120 


© Intel Corporation, 1976 

12/6/77 




98-034D 

11-3 



ASMS 6 :F1: WRMIN. MS 8 

I S I S - 1 I S 8 8 8 .-' S 8 8 5 A S S E M B L E R , V 1 . 8 



WRI'i I N 



PAGE 



'if: 



OBJ 



;eq 



SOURCE 



"ATE MEN" 



88EC 



8888 8E.87 
666^ CD880H 



8 
1 

3 DRTOU' 

4 

5 WRMIN 

6 

8 WR8 : 



8885 


116666 


9 


8888 


616666 E 


: 16 


888B 


CD 66 6 8 E 


11 


888E 


E5 


12 


888F 


1187mm 


13 


8812 


19 


14 


0813 


4E 


15 


0814 


23 


16 


0015 


46 


17 


001 6 


2_S 


18 


0017 


C5 


19 


0818 


3666 


26 


881R 


i—S 


21 


881 6 


3666 


Cl ill* 


881 D 


2_S 


ud _J- 


"HE 


5E 


24 


£10 IF 


2_s 




8828 


56 


26 


8821 


CiS 


2 r 


8U22 


4E 


28 


0023 


2 s 


29 


0024 


46 


36 


8825 


2_s 


31 


8826 


71 


s 2 


8827 


23 


-'!■—• 


8828 


/M 


34 

35 NR1 


8829 


r o 


36 


882R 


Bl 


™* r 


882B 


CR4366 C 


38 


882E 


05 


39 


882 F 


D5 


46 


8638 


116866 


41 


6833 


816 £100 D 


42 


6836 


OD0000 E 


43 


6839 


Dl 


44 


663R 


01 


45 


663B 


1R 


46 


8M_<L: 


13 


47 


88 3D 


D3E0 


48 


-.7J3F 


OB 


49 


J 48 


032986 


56 

51 MR2 


0043 


01 


c ••-■ 
•_'d 


0044 


Dl 


•i'_s 


0045 


0D8668 E 


54 


0048 


036566 


55 



NRME 
EXTRN 
PUBL. I ( 
EQU 
OSEG 

MV I 
ORLL 

LXI 

LXI 

ORLL 

PUSH 

LXI 

DRD 

MOV 

I NX 

MOV 

I NX 

PUSH 

MV I 

I NX 

MV I 

I NX 

MOV 

I NX 

MOV 

I NX 

MOV 

I NX 

MOV 

I NX 

MOV 

I NX 

MOV 

MOV 

ORR 

JZ 

PUSH 

PUSH 

LXI 

LXI 

ORLL 

POP 

POP 

LDRX 

I NX 

OUT' 

DOX 

JMP 

POP 
POP 
ORLL 
JMP 



WRMIN 

R Q E L V L , R Q IJ T X , R Q W R 1 7 , R Q S E N D 

WRMIN, RQL7EX 

6E0H .; USRRT OUTPUT PORT RDDRESS 



RQELVL 



ENRBLE INTERRUPT LEVEL 7 



D, 6 

B, RQOUTX 

RQWRIT .; WRIT FOR OUTPUT REQUEST 
.: PUSH MESSRGE RDDRESS 



H 

D, 7 
D 

C, M 
H 

B, M 

H 

B 

M, 6 

H 

M, 6 

H 

E, M 
H 

D, M 
H 

0, M 
H 

B, M 
H 

M, 
H 
M, B 

R, B 



WR2 .; EXIT LOOP IF COUNT = 8 

B 

D 

D, 6 

B, RQL.7EX 

RQWRIT , WRIT FOR TXRDV INTERRUPT 

D 

B 

D 

D 

DRTOUT 

B 

WR1 



GET RESPONSE EXCHANGE 



PUSH RESPONSE EXCHANGE 
STATUS = 6 



GET BUFFER RDDRESS IN DE 



GET COUNT IN BC 



ACTUAL = COUNT 



TRANSMIT NEXT CHARACTER FROM B 



B 

D 

RQSEND 

WR6 



BC = RESPONSE EXCHANGE 

DE = MESSAGE ADDRESS 

SEND MESSAGE TO RESPONSE EXCHA 

11-5 



rvrpn 



58 RGL7EX: 
ISIS-II 8O80/SO85 ASSEMBLER, VI. NRMIN p RGE 

LUC OB. J 8 EC! SOURCE STRTEMENT 

• '^lOO C 58" DS 15 

80 .; 

81 END 

PUBLIC SYMBOLS 

RQL7EX D OOOO NRMIN C 0000 

EXTERNAL SYMBOLS r . r r „ .. 

RQELVL E 0000 RQOUTX E 0000 RQSEND E 0000 RUklHl f E UUUU 

DflTnUT T fl J 00EC RQELVL E 0000 RGL7EX D 0000 RQOUTX E OOOO RQSEND E 000 
NR1 C 0028 WR2 C 0043 NRMIN C OOOO 

ASSEMBLY COMPLETE, NO ERROR '-S> 



11-6 



Ref. #G3 



inSitg INTEL ° USERS LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



D 4004/4040 D8008 B8080 D8048 D8085 D Other. 



(use additional sheets if necessary) 



MINITH - RMX Minimal Terminal Handler 

The function of MINITH is to provide all the basie requirements for 

n% + n:^8S' , AP r :33 M,N,TH ls descrlbed in de+aii in +he a ^ ,icati - 



SBC 80/20 



RMX/80 Nucleus 



The input parameters and output results for MINITH are a subset 
of those for the THDINI and THDIN0 tasks of the RMX/80 Terminal 
Handler described in the RMX/80 User's Guide. 



See Applications Note AP33. 



RMX 80 Users Guide $5.00. 
Available from Literature. 



Note ; Source Available on 
diskette only. 



Registers Modified: 
I AJJ 



RAM Required: 
67 



ROM Required: 
570 



Maximum Subroutine Nesting Level: 



Assembler/Compiler Used: 
PI M/flf) 

» Intal Corporation, 1976 

J2/7/77 



Programmer: 

THOMAS ROLANDER 



Company: 



Address: 

21Q50 MrttFAKI RR 



City: 



SAN JQSF 



State: 

CALIFORNIA 95120 



98-034D 
11-8 



Ref. #G4 



insite 



INTEL* USERS LSBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 40C4 D4040 D8008 



18080 D3000 D Other. 



(use additional sheets if necessary) 



RMX/80-Based Keyboard Input Handler Subroutine 

Accepts ASCII input characters and analyzes for (Carriage Return) 
(Line Feed) or (Delete) control characters. Dispatches character 
to a display exchange and/or input exchange using RMX/80 calling 
procedures. 

80/20 SBC with standard ASCII I/O terminal (with keyboard input 
port designated as 32H). 

RMX/80 Operating System Vers. 1.2, using standard configuration 
procedure to create user object program from RMX/80 library and 
user-written modules. 

Standard ASCII keyboard entry, using RMX/80 System standard routines/ 
calling prodedures. 

ASCII characters to teleprinter or display. 




RMX 80 Users Guide $5.00. 
Available from Literature. 












'Note: Source Available on 
diskette only. 











Registers Modified: 

All 


Programmer: 

M. H. Gansler 


RAM Required: 

37 Bytes + Stack (this module only) 


Company: 

NTI 


ROM Required: 

85 Bytes (this module only) 


Address: 

4041 Home Rd 


Maximum Subroutine Nesting Level: 

2 (minimum) 


City: 

Bellingham 


Assembler/Compiler Used: 

ISIS-II 8080/8085 Macro Assem. V2.0 


State: 

Washington 98225 



D Intel Corporation, 1£ ."C 



12/7/77 



98 034C 

11-10 



THIS IS A DEMONSTRATION OF OUTPUT RESULTS 

OF ASCII CHARACTERS RECEIVED FROM THE RMX/80 - COMPATIBLE 
KEYBOARD INPUT HANDLER SUBROUTINE (KIHS) AND POSTED TO 
THIS TELEPRINTER DEVICE. 

END. 11/07/77 



11 -11 



ASM80 : Fl : K I HS. SRC 



ISIS-II 8630/3885 MfiCRO ASSEMBLER, V2. 6 



KIHS 



PAGE 



LOC OBJ 



000D 

007F 
0032 



0000 
0002 
0005 
0008 
000B 

080E 

0011 
0012 

0014 



©E05 

CD0080 

010800 

110080 

CD8888 

210580 

E5 

2ES0 

321D88 



E 
D 

E 
C 



0017 DB32 
0019 322380 
^01C FE20 
-•01E DA2B80 
0021 FE7F 
0023 CA5688 
6026 3E41 
0828 C33288 



D 
C 
C 

c 



SEQ 

1 

2 
3 
4 
5 
6 
7 
8 
9 

10 
11 

12 
13 
14 
15 
16 
±7 
18 
19 
20 
21 
22 
23 

24 LF 

25 CR 

26 DEL 

27 KB I 
28 

29 

38 

31 

32 KIHS: 

33 

34 

35 Bl: 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

43 

49 

50 

51 

52 CNTRL 



SOURCE STATEMENT 



RMX/80 - BASED GENERAL KEYBOARD 

INPUT HANDLER SUBROUTINE <KIHS> 

NOTE - 1> ALL "RQ" - NAMED PARAMETERS ARE 

RMX/80 DESIGNATED SYSTEM DIRECTIVES 
2> MESSAGES & EXCHANGES ARE IMPLEMENTE 

ACC. TO STD. RMX/80 NOMENCLATURE 
3> DISPLAY-TYPE CODE <DTYPE> IS SET: 
65 = NORMAL CHARACTER 

75 = LINE FEED CHARACTER 

76 = CARRIAGE RETURN CHARACTER 

77 = DELETE OR RUBOUT CHARACTER 
4> INPUT-TYPE CODE <ITYPE> IS SET: 

80H = NOT SET 

81H = CARRIAGE RETURN 



EQU 
EQU 
EQU 
EQU 



CSEG 



MVI 

CALL 

LXI 

LXI 

CALL 

LXI 

PUSH 

MVI 

STA 

IN 

STA 

CPI 

JC 

CPI 

JZ 

MVI 

JMP 



NAME 



KIHS 



PUBL I C K I HS, I NPEXC, RQL5EX, CHAR 

EXTRN RQWA I T, RQSEND, RQELVL, D I SEXC 

10 ; LINE FEED 

13 ; CARRIAGE RTN 

7FH } DELETE 

32H ; KEYBOARD IN PORT* 



C, 5 

RQELVL 
B, RQL5EX 

D, 

RQWA IT 
H, Bl 

H 

A, 80H 

I TYPE 

KBI 

CHAR 

20H 

CNTRL 

DEL 

C3 

A, 65 

DISOT 



ENABLE LEVEL 5 
INTERRUPT 

; WAIT FOR A 
CHARACTER FROM 
THE KEYBOARD 
SET RETURN 
ON THE STACK 
INITIALIZE 
INPUT CHARACTER TYPE 

GET THE CHARACTER 
SAVE CHARACTER 
IS IT A CONTROL 
YES GO DECODE 
IS IT DELETE ? 
YES, OTHERWISE 
SET FOR SUBSEQ. 
CHARACTER DISPLAY 



11-12 



"IS-II 8088/3035 MACRO ASSEMBLER, V2. 



KIHS 



PAGE 



LOC OBJ 



SEQ 



SOURCE STATEMENT 



002B 


FEOA 




53 




CPI 


LF ; 


IS CHAR. A LINE FEED? 


O02D 


C22F00 


C 


54 




JNZ 


C2 ; 


NO 


0020 


2E4B 




55 




MVI 


A, 75 ; 


YES, SET CODE & OUTPUT 


0022 


322200 


D 


56 


DISOT: 


STA 


DTVPE 




0025 


010000 


E 


57 




LXI 


B, PISEXC 


; SEND MSG TO THE 


0038 


111E00 


D 


53 




LXI 


0, DISMSG 


; DISPLAY EXCHANGE 


003B 


CD0O00 


E 


59 




CALL 


RQSEND 




003E 


C9 




60 
61 




RET 






002F 


FEOD 




62 


C2: 


CPI 


CR ; 


IS IT CARRIAGE RTN? 


0041 


CO 




63 




RNZ 


i 


NO. IGNORE CHAR. 


0042 


3E4C 




64 




MVI 


A, 76 ; 


YES, SET 


0044 


CD3200 


C 


65 




CALL 


DISOT i 


CODE FOR CR & ALSO 


0047 


3ES1 




€G 




MVI 


A, S1H \i 


SET INPUT TERMINATE 


0049 


321D00 


D 


67 




STA 


ITVPE ; 


CODE 


004C 


010F00 


D 


63 




LXI 


B, INPEXC 


; SEND MSG TO THE 


004F 


111900 


D 


69 




LXI 


D, INPMSG 


; INPUT EXCHANGE 


0052 


CD0000 


E 


70 




CALL 


RQSEND 




0055 


C9 




71 
72 
73 


C3: 


RET 






0056 


3E4D 




74 




MVI 


A, 77 ; 


SET DEL CODE 


0058 


C23200 


C 


75 
76 
77 
73 




JMP 
DSEG 


DISOT ; 


& OUTPUT 


000F 






79 


RQL5EX : 


DS 


15 ; 


LEVEL 5 EXCHANGE 


000A 






80 
81 


INPEXC: 


DS 


10 ; 


INPUT EXCHANGE 


0004 






82 


INPMSG : 


DS 


4 ; 


INPUT MESSAGE 


0001 






83 
84 


ITVPE: 


DS 


1 ; 


INPUT TYPE 


0004 






85 


DISMSG: 


DS 


4 ; 


DISPLAV MESSAGE 


0001 






86 


DTYPE : 


DS 


1 ; 


DISPLAV TYPE 


0002 






87 
88 
89 


CHAR: 


DS 
END 


2 


ASCII CHARACTER 



PUBLIC SYMBOLS 

CHAR D 0023 INPEXC D OOOF 

EXTERNAL SYMBOLS 

DISEXC E OOOO RQELVL E OOOO 



KIHS C OOOO RQL5EX D OOOO 



RQSEND E OOOO RQWAIT E OOOO 



USER SYMBOLS 
Bl C 0005 
T T SEXC E 0800 
A 8822 



C2 C 003F 
DISMSG D 0O1E 
KIHS C OOOO 



C3 C 0056 CHAR D 0023 
DISOT C 8832 DTYPE D 8822 
LF A 088A RQELVL E 8888 



CNTRL C 882 
INPEXC D 800 
RQL5EX D 888 



ASSEMBLY COMPLETE. NO ERRORS 



11-13 



insite 



Ref. #G5 

INTEL 1 USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 $8080 D8048 D8085 □ Other. 



(use additional sheets if necessary) 



HND534 - RMX/80 Driver for i SBC/534 



RMX/80 Driver for the iSBC 534 Communications Expansion Board, 



iSBC 80/10, 80/10A, 80/20 or 80/20-4 with iSBC 534 



RMX/80 (any version) 



none 



none 



Available on diskette 
only for $35.00. 



Registers Modified: 

ALL 


Programmer: 

Joe Barthmaier & Steve Verleye 


RAM Required: 
256 


Company: 

Intel Corp. 


ROM Required: 
1555 


Address: 


Maximum Subroutine Nesting Level: 

20 


City: 


Assembler/Compiler Used: 

PL/M 80 Ver. 3.1 


State: 



© Intel Corporation, 1976 

8/78 



98-034D 
11-15 



Ref.#G6 



insite 



INTEL USER'S LIBRARY SUBMITTAL FORM 



Program 
Title 

Function 



Required 
Hardware 



Required 
Software 



Input 
Parameters 



Output 
Results 



□ 4004/4040 D8008 [38080 D8048 D8085 & Other RMXZ80___ ( use additional sheets if necessary) 



RMX/80 DEMONSTRATION PROGRAM WITH TIME 

This program provides an excellent demonstration of the timing accuracy 
of the RMX/80 SYSTEM. It consists of the RMX/80 demonstration program 
with an added task, RMXCLK. RMXCLK keeps and displays the time on 
the output device at user command. The clock cycle is 24 hours. 



System 8020 connected to MDS 800 via ICE 80 as per Appendix E, 
RMX/80 User's Guide. 



RMX/80 package for SBC 8020 V.1.2, 



The user types 'TIME' on the input device to obtain the current 
time, or 'TIME XX XX XX' to set the time to a particular value. 



The out put device types: 'THE TIME IS XX:XX:XX' 
The source tape includes: 

1) CLK module 

2) A modified version of RMX/80 DEMONSTRATION CONFIGURATION 
MODULE 

3) A submit file to change DEMO. LIB to DEM02.LIB 

4) A submit file to load the demonstration program 



Registers Modified: 


Prqar^mmeri 

nichael Sussman 


RAM Required: 


Company: 

Amscor 


ROM Required: 


Address: 

2512 N. Velasco 


Maximum Subroutine Nesting Level: 


City: 

Angleton 


Assembler/Compiler Used: 

ISIS: PL/M 80. ASM 80 


State: 

Texas 77515 



© Intel Corporation, 1976 

10/78 



98-034D 
11-17 



SECTION 12 



CROSS REFERENCE TO 8848 PROGRAMS 



REFERENCE 
NUMBER 



PROGRAM 



PAGE 



AB112 8048 - SEVEN SEGMENT DISPLAV INTERFACE 

SUBROUTINES - SCAN 

AB114 8048 TUNE GENERATOR 

AB138 UP I -4:1 S-DIGIT LED DISPLAV CONTROLLER. 

AB139 UPI-41A SENSOR MATRIX CONTROLLER . . . 

AB148 LRC PRINTER CONTROLLER - AP-27 .... 

AB141 UP I -41 A COMBINATION I/O DEVICE < UN I OD > 

AB147 8278 KEVBOARDXDISPLAV CONTROLLER - UPI-41A 

AB148 8295 DOT MATRIX PRINTER CONTROLLER - UPP-41A 

AB149 OLIVETTI 28~C0LUMN PRINTER CONTROLLER - UP I — 41 

AB158 8292 CGPIB CONTROLLER > IMPLEMENTATION ON 8741A 

AB151 SEND48 

AB152 OUT IN 

AB153 REM0TE48 

AE13 PROGRAM TEST-LOADER 

BA16 8048 BCD MULT. . . 

BB47 8048 DIVISION ROUTINE 

BB50 MATH48 - EXTENDED PRECISION ARITHMETI 

BD3 DTMHEX - DTMF CODE TO HEX CONVERTER. 

E25 LANDER 



4-528 
4-524 
4-680 
4-688 
4-698 
4-700 
4-711 
4-712 
4-715 
4-717 
4-719 
4-721 
4—723 
4-513 



n-j:09 
5-249 
3-78 



HIGHLIGHTS 



REFERENCE 
NUMBER PROGRAM 



PAGE 



D45 GRAPH 

AA13 

BC18 

D29 

D49 



AA13 Intel lee MDS Diagnostic Confidence Test* .' .' .' .' . . . . [ 4.350 



Optimised Ultra-Fast Floating Point Packaqe . ' 5-?fin 

D29 STAGE 2 7.79 

String Manipulation Packaqe 7 , R4 

AE14 SYMBOL ']?* 

AB112 SCAN '.'.'.'.'.'.'.'.'.'.'.'.'.'' 4-520 

G4 RMX/80 - Based General Keyboard Innut H^nHlor 11 m 



AA18 



Keyboard Input Handler 11-10 

yScope820 Test I nstrument, iSBC80/10 Diagnostic 4-545 

F17 LISP Interpreter Log 

F16 PILOT-80 ISIS-II Version 2.0 '.'.'.'.'.'.'.'.'.'. 9-28 

059 cos ~ A Cassette Operating System for the MDS-800 '.'.'.'. 7-191 I 



10/78 



NEW PROGRAMS IN THF AUGUST HPT1ATF 

IBM BI-SYNC CRC16 GENERATION SUBROUTINE 

Generates IBM CRC 16 Check Bytes using polynomial 
X 16 + X 15 + X 2 + 1 

Ref.#AB165 p. 4-751 

MODIFIED SDK-80 RESTART ROUTINE 

The original SDK-80 monitor restart routine destroys the carry 
bit because of the use of the DAD SP instruction before the flags are 
saved; the DAD SP instruction affects the carry bit. This routine does 
not destroy the carry bit. 

Ref. #AB168 p. 4-759 

MPS SERIES II - DUMB TERMINAL 

Allows MDS Series II keyboard and CRT to be used as a "dumb" 
terminal using Serial Port 2 on back panel. 

Ref.#AB169 p. 4-761 

FILE GENERATOR 

To create and load a source file from an off-line terminal into 
an ISIS file. 

Ref.#AB170 p. 4-763 

PROGRAMMABLE SOFTWARE TIMERS 

This program allows a user to set a software timer by specifying the 
time (# of counts) and vector (Address of subroutine) to be executed when 
the timer expires. This program allows for 24 timers. 

Ref.#AD7 p. 4-765 

MTL DIV - SUBROUTINES 

Multiplication of two 24 bit binary numbers to give a 48 bit result. 
Integer division of a 48 bit binary number by a 24 bit binary number. 

Ref.#BB53 p-5-329 



SQUARE ROOT FOR MCS-48 

This routine generates an 8 bits root of a 16 bits number. 
Ref.# BB54 p. 5-331 

FLOATING POINT LOAD AND STORE SUBROUTINES 

Six routines to assist in storing and loading floating point 
numbers as defined in the INSITE floating point packages (Ref.#BC5). 

Ref.#BC33 p. 5-333 



RTCOPY 

Copies first file from a PDP-11 diskette (RT-11) to an MDS 
ISIS-II diskette file. 

Ref.#C35 p. 6-78 



FILES 

This module consists of a group of utility procedures which ease 
file oriented I/O under ISIS-II. 

Ref.#D64 p. 7-201 



PROGRAM HIGHLIGHT 



PILOT-80 ISIS-II Version 2.0 

PILOT is a programming system for controlling interactive 
conversation. PILOT stands for Programmed Inquiry, 
Learning or Teaching. It has most commonly been used as 
an author language for Computer-Assisted Instruction. It 
was first developed at the University of California in 
San Francisco. It is an interpreter written in assembly 
language that requires less than 4K bytes of memory for 
the interpreter code. Total memory requirements depend 
on the space required for PILOT program text and will 
often be no more than 8K bytes. 

PILOT is designed to be simple in its syntax so that 
those without prior computer experience can easily 
learn to control its features. Dialogue programs can 
be rapidly constructed and tested. 

It is possible to imitate the operation of PILOT in a 
general purpose programming language such as BASIC, APL, 
FORTRAN, or PL/I. The reverse is certainly not true, for 
PILOT is a specialized language oriented toward dialogs, 
drills, texts, etc. If a BASIC program is to be made 
interactive for the handling of free-response dialog, the 
programmer must expend a large effort in processing input 
and arranging for comparisons with possible words or 
portions of words that might be important to recognize. 

PILOT makes this kind of processing easy and keeps the 
program sufficiently readable that it can be reviewed by 
someone with a primary interest in the logic of how language 
content is to be presented. PILOT is relatively poor at 
kinds of computation handled well by general purpose 
languages. For many instructional uses, that doesn't 
matter, but some versions of PILOT allow a mix of program- 
ming with a concurrently available general language. 

Ref - # F1 6 p. 9-28 
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HIGHLIGHTS 



Reference 

Numbers Program Page 

D45 Graph ........ 7- t34 

AA13 Intel lee MDS Diagnostic Confidence Test 4-360 

BC18 Optimised Ultra-Fast Floating Point Package 5-260 

D29 Stage2 7 . 79 

D49 String Manipulation Package 7-154 
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GRAPH 



The subroutine GRAPH can be used to generate a simple one- 
quadrant graph of one variable on a console device such as 
a teletype or CRT. Along with the function, plotted as X's, 
a y-axis, an x-asis and a 5 x 5 coordinate grid will be 
plotted. 

The subroutine produces one line of graph per call. The 
user can therefore number the axes as he pleases through 
the calling program. Provided the data to be plotted is 
scaled such that a zero byte corresponds to the 'value' of 
the left-most column on the output device, a 2-quadrant 
graph can be produced though the plotted x-axis will not 
correspond to the line y = 0. 

The graph produced has its y (dependant) axis increasing 
to the right, and its x (independent) axis increasing 
downwards. Therefore although the y-coord i nates are 
limited to between and 128 or the width of the output 
device, the x-coordinate is unlimited. 

The fact that the subroutine produces only one line of graph 
per call allows some kluging. For instance, two functions 
could be plotted on the same graph by setting up two data 
blocks in memory, then alternately adding and subtracting 
to the pointer registers (H and L) between call to give a 
graph which alternates between the two functions. 

Or, if a graph is to be plotted for negative as well as 
positive values of x, make use of the fact that the E - 
register holding OFFH signifies to the subroutine that 
the current call is the first, therefore the y-axis is to 
be plotted, and that subsequently the subroutine maintains 
E as a counter for the grid, ranging from to 4. Put the 
appropriate value of to 4 into the E register before the 
first call. Then when the graph has plotted up to the line 
x = -1 (determined by the calling program), put the value 
OFFH into the E register (which should have held the value 
4 in order that the grid be aligned properly) and the next 
cal I to GRAPH wi I I plot the y-axis. 

Ref.#D45 p#7 _ 134 
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INTELLEC MPS Diagnostic Confidence Test 

The Intel lee Microcomputer Development System Diagnostic Confidence 
Test is a simple verification test that exercises standard Intel lee 
Modules and input/output (I/O) devices returning a pass or fail in- 
dication to the operator. The confidence test will verify the func- 
tional ity of: 

- Intel lee Central Processor Unit 

- RAM memory (minimum of 16K or RAM located at 0-16K, 
plus any additional contigious or non-contiqious 
blocks of RAM). 

- Teletypewriter (TTY) 

- CRT 

- Diskette Drives 

- Line Printer 

- High Speed Paper Tape Reader (PTR) 

- High Speed Paper Tape Punch (PTP) 

The program will reside on diskette or on paper tape. The diskette 
version is in object format and execution is started automatically 
after completing the start-up procedures for the diskette. 

The paper tape version is in a Hex format and can be read in through 
the PTR or the paper tape reader on the TTY. Both the diskette and 
paper tape versions require parts of the monitor to be functional to 
load the program into the system. 

The program is structured to avoid a hang up on any operator input. 
All operator inputs are subject to a software time out that will allow 
the program to continue executing if no inputs are supplied by the 
operator within the allotted time. This feature will allow the pro- 
gram to run to completion unsupervised, while testing as much of the 
system as possible. The program will accept the ALT MODE key from 
control consoles not having an ESC key. 

Total execution time varies with the amount of operator intervention 
from a minimum execution time on the order of 5 minutes. 
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HARDWARE REQUIREMENTS 

The confidence test hardware requirements include: 

- Standard Intel lee Microcomputer Development System: which 
includes the 8080 CPU module, a 16K RAM memory module, a 

- Control Console Device: which can be a TTY or a CRT. 

- Program Input Device: the program input device is used to 
transfer the program to RAM memory and is a diskette drive 
for the diskette versions of a PTR or TTY reader for the 
paper tape versions of the confidence test. 

Beyond this minimum requirement, the program also checks for and 
exercises: 

- Other blocks of RAM memory 

- CRT 

- TTY 

- Diskette Drives 

- Line Printer 

- High Speed Paper Tape Reader 

- High Speed Paper Tape Punch 



Ref. # AA13 P- 4 " 360 
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OPTIMISED ULTRA -PAST FLOATING-POINT PACKAGE! 



The OPTIMISED ULTRA-FAST FLOATING-POINT PACKAGE was 
designed for an application in which floating-point 
operation was reeuiredy but where speed of operation was 
in o r e i m p o r t a n t t h a n g r e a t p r e c i s i o n ♦ T h e P a e k a g e h a n d 1 e s 
numbers as a one byte exponent* and a two byte mantissa* 
The exponent is in 7 bits in excess -64 form* and the 8th 
bit is a guard bit for distinguishing between overflow and 
underflow* The mantissa is in two's complement form and 
its magnitude is normalised within the range 
0.5 to 1*0-2**(~15) + Thus 1,0 is represented as 
♦ 5 * 2 * * 1 f and i s s t o r e d i n t h r e e b y t e s J 



41 
00 
40 



f Exponent (2**1 plus excess -6 4) 
y Ma n t i s s a ? I o w b y t e 
» * high byte 



Zero is represented by three bytes of 0. The dynamic 
range of numbers is 2 ♦71 * 10** (-20) to 9*22 * 10**18 y and 
the accuracy of representation is about 4 1/2 decimal 
figures* Again for speed of operation* where least 
significant bits are discarded* t Truncation* rather than 
r o u n d i n g y i s d o n e ♦ 

The Package consists of several small utility 
r o u t i n e s f o r s h i f t i n g n u in b ers» e t e ♦ y a n d r o u t i n e s t o 
p e r f o r m n e g a t i o n? a d d i t i o n y m u 1 1 :i. p I i e a t i o n > d i v i s i o n a n d 
s g u a r e - r o o t ♦ A 1 1 r o u t i n e s w i t h i n t h e p a c k a g e e x p e e t 
appropriately normalised ope rands y and they return 
normalised results* The routines will return a result 
v e r y o u i c k 1 y i f o n e o p e r a n d i s z ero. T h e r o u t i n e s w i 1 1 
not produce meaningful results with unnormalised operands* 



simplify and 

the routines 

loaded into 

result in the 

of the next 



The Package is organised to greatly 
s p e e d c h a i n e d a r i t h in e t i c o p e r a t i o n s * A I 
expect their operand(s) to hav& been already 
the appropriate registers v and leave their 
appropriate registers for the first operand 
operation* The first (or only) operand and the result ax^G 
t r a n s f e r r e d i n the registers B ( e x p o n e i~. t ) D E ( m a n t :i. s s a ) v 
and the second operand (if any) in A (exponent) 
H L.. ( in a n t :i. s <;; a ) ♦ C h a :i. n e d a r i t h m e t i c i s m o s t e f f i c :i. e n 1 1 y 
o r g a n i s e d i n Reverse P o 1 i s h N o t a t i o n ( R P M ) * I n t e r m e d i a t e 
results can be left on the stack (by PUSH B y PUSH 1.1 ) y 
and reloaded as future operands (by PGP D y POP' B for 
a first operand? or by PGP H 9 PGP PSW for a second 
operand) ♦ 



Subtraction is performed by negation and then 
addition* The division routine has two entry points* one 
for normal division* and one for reversed division* The 
normalise section of the addition routine is used for 
converting two's complement integers into floating point 
format* 

Conditions of overflow and underflow tive detected and 
the result set to +/- the largest possible number y and 
zero respectively* A floating-point error flag byte is 
maintained in which bits bvg set to indicate the occurence 
of overflow* underflow* division by zero* and the 
sauare-root of a negative number* The flag bits are set 
but never cleared by the routines* and so the user may 
clear this byte before starting an operation or series of 
operations* and then test the flag byte and take such 
action as is appropriate* 

With the exception of the error flag byte* all 
working space is allocated on the stack* and so the 
routines are fully reentrant* Typical times for execution 
of the routines on an INTEL 8080A system running at 2Mhz* 
and with no wait states are: 



typical ( m s ♦ ) ma x i m u in 



Add 0*25 0*53 

Subtract 0*27 0*55 

Multiply 0*75 0*85 

Divide 0*75 0*85 

Sauare-root 1*50 -1.2 ♦ 00 



S ♦ N ♦ C o p e ?* S ♦ E ♦ E v a n s 

D e p t ♦ En g i n e e r i n g S c :i. e n c e 

x f o r d U n i v e r s i t y 

x ford* E n g 1 a n d 



Ref.#BC18 P* 5 " 260 
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STAGE2 



The STAGE2 macro processor is a very versatile software tool, develo- 
ped by W. M. Waite. Its uses range from simple filtering to language 
translation, as well as most conventional macro processing applica- 
tions. 

The syntax of STAGE2 inputs may vary widely as STAGE2 employs a gen- 
eralized pattern matching facility to select the appropriate macro. 
For example, suppose one wishes to manipulate every line of input 
which begins with APPLE and ends with a question mark. The STAGE2 
macro temp late, 

APPLE'? 



expresses this (the apostrophe indicates that part of the template 
which may vary). The string of characters which actually appears 
between APPLE and ? in the input are made available to the macro 
body as a parameter. STAGE2 allows nine such parameters in each 
macro temp late. 

The STAGE2 processor provides a dynamically allocated memory so that 
information may be saved by one macro and later used by another macro, 
One use of this memory is the normal symbol definition facility pro- 
vided by most assemblers. More sophisticated uses are possible, in- 
cluding a simple form of associative memory. 

Conditional macro expansion facilities are provided so that fully 
general, input directed transformations are possible. STAGE2 pro- 
vides nine-channel input/output support, including a simple formatted 
output facility. Number conversion and arithmetic expression evalu- 
ation are also provided. 

Because STAGE2 is so general, it can in theory perform any computa- 
tional process. However, this generality also makes STAGE2 a rela- 
tively slow, (compute-bound) processor, and hence unsuitable for 
some applications. Its power lies in its generalized pattern match- 
ing facility. Applications which require such a facility and perform 
straight forward transformations on input data, will typically be 
an order of magnitude simpler to implement with STAGE2 than with 
a normal algorithmic programming language. 

Ref.# D29 p# 7 _ 79 
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String Manipulation Package 



The string manipulation package is a set of four mutually 
independent subroutines which perform commonly used functions 
in non-numerical data processing. These functions are the 
following: 

~ Substring Access and Assignment 

Procedure SUBST extracts a substring from the 
source variable and stores it into a substring 
of the destination variable. It performs range 
checking, ensuring that no characters will be 
written outside of the destination variable's 
bounds . 

String Assignment 

Procedure ASSGN transfers the contents of the 
source variable to the destination variable. 
It also performs range checking. 

- String Comparison 

Procedure CMPST compares the contents of one 
string to another, indicating whether they are 
identically equal, whether one string is a 
prefix of the other, or whether they don't 
match . 

- String Delimiting 

Procedure DELMT is the most powerful part of 
the package. The user gives it three strings. 
They are: 

(a) The object set, which contains string 
which will be scanned. 

(b) The initial set, which contains the 
characters to bypass. 

(c) The delimiting set, which contains the 
possible characters in the symbol the 
user wants to delimit. 

DELMT starts scanning the object string at the specified posi- 
tion, ignoring characters in the initial set until it finds a 
character not in the initial set. It marks that position, then 
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continues scanning, making sure that the characters it sees are 
in the delimiting set. As soon as it finds a character not in 
the delimiting set, it stops. To the user, it returns the 
following information: 

- Whether the delimiting was possible 

- The length of the delimited string 

- Its starting position in the object string 

- The index to the character immediately following 
the delimited string 

The clearest use for this procedure is in lexical analysis. 
One can, for example, scan a line input to an assembler, ignore 
blanks, and extract an alphanumeric symbol. 

Included in the package are two utility routines needed by all 
of the programs. One passes the parameters. The other bypasses 
the parameters upon return. 

The strings on which the subroutines operate consist of up to 
255 contiguous bytes preceeded by two control bytes, the first 
specifying the maximum length, and the second specifying the 
current length of the string. 

There are no specific hardware requirements for this package. 



Ref.# D49 P- 7 ~ 154 



HIGHLIGHTS 



REFERENCE 
NUMBER 



PROGRAM 



PAGE 



D45 

AA13 

BC18 

D29 

D49 

AE14 

AB112 

G4 

AA18 

F17 

F16 

D59 

BC28 



GRAPH 

INTELLEC MDS DIAGNOSTIC CONFIDENCE TEST 
OPTIMISED ULTRA-FAST FLOATING POINT PACKAGE 
STAGE 2 

STRING MANIPULATION PACKAGE 

SVMBOL 

SCAN 

RMX/80 - BASED GENERAL KEYBOARD INPUT HANDLER 
USCOPE 826 TEST INSTRUMENT, ISBC80/10 D I AGNrv-T I f 

LISP INTERPRETER 

PILGT-80 ISIS-II VERSION 2.0. 

COS - A CASSETTE OPERATING SVSTEM FOR THE MD ; -.~ft0fi 

DOUBLE PRECISION FLOATING POINT PACKAGE 



7-134 

4-360 

5-260 

7-79 

7-154 

4-515 

4-520 

11—10 

4-545 

9—29 

9— 28 

7-191 

5-313 



p ..'-7Q 
Of l J 



INSITE USER'S LIBRARY 



8 E:IT PROGRAM INDEX 



3-BVTE POSITIVE FRRCTIONRL MULT I PL V 

3M - DCD1 CASSETTE TAPE DRIVE MONITOR ROUTINES 
5 LEVEL < BAUDOT > TO 8 LEVEL < ASCII* PAPER 

TAPE CONVERSION 

8-BIT MULT I PL V AND DIVIDE 

8-BIT RANDOM NUMBER GENERATOR 

8-DIGIT LED DISPLAY CONTROLLER - UP I -41. 

12 X 12 MULTIPLY 

16-BIT 
16-BIT 
16-BIT 
16-BIT 
16-BIT 
16-BIT 
16-BIT 
16-BIT 
32-BIT 



CRC FOR POLYNOMIAL X16+X12+X5+1 
DIVISION - 16-BIT RESULT. . . . 
16-BIT 
16-BIT 
16-BIT 
32-BIT 
NUMBER GENERATOR 
ROOT ROUTINE . . 



DIVISION 

MULTIPLY 

MULTIPLY 

MULTIPLY 

RANDOM 

SQUARE 



RESULT. 
RESULT. 
RESULT. 
RESULT. 



ilON, 



BINARY TO BCD CONVER 
LEADING ZERO BLANKING. . 
32-BIT DIVIDE SUBROUTINE . 

32-BIT DIVISION SUBROUTINE - 23 BIT RESULT 
2788 PROM PROGRAMMER FOR INTELLEC 8/M0D88. 

CROSS ASSEMBLER FOR INTELLEC 8/M0D88 AND MDS-800 

CROSS ASSEMBLER FOR 8085-MACRO DEFINITION — M8888 

CROSS INVERSE ASSEMBLER FOR HP2188 

DISASSEMBLER 

MACRO ASSEMBLER VERSION 2. 8 . . . 

MACRO ASSEMBLER, VERSION 2.8 — ASM88 

MACRO DEFINITION SET FOR ASSEMBLY 

BCD MULTIPLY 

CRC16 GENERATION SUBROUTINE, IBM. 

8848-DIV — DIVISION ROUTINE 

8848-SEVEN SEGMENT DISPLAY INTERFACE SUBR 
8848 SIMULATOR - SIM48 

TUNE GENERATOR 

CPU EXERCISE ROUTINE 

CROSS ASSEMBLER FOR TEKTRONICS 485 

DISASSEMBLER 

DISASSEMBLER 

DOUBLE PRECISION ARC TANGENT. . . 



4848 
8888 
8888 
8888 
8888 
8888 
8888 
8848 
8848 



8848 
8888 
8888 
8888 
8888 
8888 



:in 



PDP-11 



JUTINES- 



CAN 



RC 



5-213 
4—658 



4-458 
5-177 
5-192 
4-688 



4-44 



5-12 

5-15 

5—9 

5-195 

5-132 



5-167 

5-175 

5-321 

4-364 

9-11 

6—65 

6-13 

4-134 

9-17 

9-13 



4-751 



4-528 

6-74 

4-524 

4-348 

6-37 

4-136 

4-138 

5-216 



BB42 
AB131 

AB94 

BB33 

BB37 

AB138 

BB45 

AB7 

BBS 

BB9 

BB2 

BB3 

BB1 

BB38 

BB23 

BB29 

BB32 

BB51 

AB68 

F9 

C38 

C13 

AB28 

F12 

F18 

C5 

BA16 

AB165 

BB47 

AB112 

AB114 
AA12 
C24 
AB21 

BB44 



8/79 



8089 FLOATING POINT A*B 5" 

8080 FLOATING POINT EXTENDED MATH PACKAGE 5- 

8080 FLOATING POINT PACKAGE WITH BCD CONVERSION ROUTINE. . 5- 

8080 IDLE ANALYZER FOR APPROXIMATING CPU UTILIZATION . . . 4- 

8080 I/O SYSTEM STATUS DISPLAY : . . 4- 

8080 LEAST SQUARES QUADRATIC FITTING ROUTINE 5- 

8080 MACRO ASSEMBLER 4. 1 9 ' 

8080 RAM MEMORY TEST 4 ' 

8080 SYMBOL TABLE DUMP 4 " 

8085 CROSS ASSEMBLER FOR THE DEC PDP8 AND PDP11 6- 

8085 CROSS ASSEMBLER FOR THE NOVA 1200 6- 

TINY BASIC 9 ' 

— BREAK. 89 4 

8278 KEYBOARD/DISPLAY CONTROLLER - UP I -41 A 4 

8292 <GPIB CONTROLLER) IMPLEMENTATION ON 8741A 4 

8295 DOT MATRIX PRINTER CONTROLLER - UPP-41A 4 

8741 A - 8292 <GPIB CONTROLLER) IMPLEMENTATION 4 

9600 INITIALIZE CRT AND UART FOR BAUD 4 



8086 
8089 



•274 

•183 

■87 

■156 

-25 

-89 

-15 

-81 

-321 

-63 

-76 

-33 

-757 

-711 

-717 

-713 

-717 

-327 



BC21 

BC14 

BC5 

AB26 

AC1 

BC6 

Fll 

AA2 

AE3 

C29 

C34 

F19 

AD6 

AB147 

AB150 

AB148 

AB150 

AB58 



ABSORB ANCE CALCULATION 

ACQUISITION FROM CONSOLE OF DECIMAL NUMBER WITH 

CONVERSION TO/FROM FPAL FLOATING POINT . . . 

A/D CONVERTER ROUTINE 

ADCCP REMAINDER ROUTINE 

ADAPTIVE GAME PROGRAM 

ALEGBRAIC COMPARE SUBROUTINE 

ALIGN PROGRAM - INTERMEDIATE PASS BETWEEN 

PLM/PASS 1 & 2 

ALPHA - AN ALPHABETIZED LISTING 
ALPHANUMERIC INPUT FROM NUMERIC 
ANALOG/DIGITAL POLLING ROUTINE .... 
AP29 "USING THE 8085 SERIAL I/O LINES" 



OF THE DISK DIREC 
KEYBOARD .... 



TOR'- 



7 DOT MATRIX. 



FOR PL/M CONVENT I 
CALLING MACRO. . 



APL GRAPHIC DISPLAY ON A 5 

APPROXIMATING ROUTINE 

ARCTAN 2 SUBROUTINE 

ARITHMETIC - MULTIPLE PRECISION 
ARRAY ADDRESSING SUBROUTINE AND 

DISPLAY 

TO EBCDIC: AND EBCDIC TO ASCII CONVERTERS 

STRING TO INTEL FLOATING POINT 

— 8008 MACRO ASSEMBLER, VERSION 2. © . . 

ASSEMBLER, ON-LINE - ASM 

ASSEMBLER ORIENTED CENTRONICS 306 LINE PRINTER 
HANDLER AND ERROR ONLY ASSEMBLER 



ASCII 
ASC 1 1 
ASCII 
ASM08 



ON 



7-71 



D25 



5-311 BC27 

4-227 AC14 

4-353 AB64 

8-32 Ell 

5-214 BB43 



6—59 


C28 


4-653 


AB132 


4-755 


AB167 


7-140 


D46 


4-522 


AB113 


4-317 


AC21 


5—153 


BB26 


5-220 


BA13 


5-307 


BB49 


5—292 


BB48 


4-267 


AB45 


5-240 


BD2 


5-262 


BC19 


9-13 


F10 




F18 



4-248 ACII 



BANDIT STATIC DISPLAY. 
BANNER PRINT AND PUNCH 



4-59 



E17 
AB11 



8/79 



BASIC CPU STATE VECTOR MAINTENANCE . . 4-27"? 

BASIC DIGITAL PANEL METER CALL .... 4-i-j5 

BASIC- 1 1 INTERPRETER, LLL ' ' " ' q_7 ""' 

BASIC INTERPRETER, LLL/CHERNACK ' q-o-s 

BASIC - TINV FOR 8886 ' q_^i- 

BAUD RATE SELECTION FOR MDS 22© OR 23© SYSTEM* - RATE ' 4-71-7 

BCD TO BIN CONVERSION ROUTINE S-41 

BCD TO/FROM BINARY CONVERSION ^,_ 4 S 

BCD INPUT AND DIRECT CONVERSION TO BINARY ROUTINE S-7A 

BCD MULTIPLICATION -^-^ 

BCD SUM FOR 8008 S-^4" 

BCD UP/DOWN COUNTER i-i±? 

BIN TO BCD CONVERSION ROUTINE. S-ie*" 

BINARY TO BCD SUBROUTINE 5-7* 

BINARY TO GRAY CODE CONVERSION SUBROUTINE - BINGRY ' ^-^S? 

BINARY TO HEX ROUTINE ' %„£? 

BINARY LOADER FOR MDS 4 _-.^o 

BINARY MULTIPLICATION - 24-BIT 5-^4 ~' 

BINARY PUNCH TAPE FOR PROM PROGRAMMER - PUNCH " 4-608 

BINARY SEARCH 7 _g 

BINARY SEARCH ROUTINE 7-^ 

BINARY TAPE PROGRAM 4-1-44 

BINDECBIN - BINARY TO/FROM BCD 5-81 

BINGRY - BINARY TO GRAY CODE CONVERSION SUBROUTINE . . !=v-i:27 

BINLB - 8080 SVSTEM LOADER 4-140 

BIORIM ft _ ftP| 

BLACKJACK ' p t _g~ 

BLOCK - LARGE HEX FILE INTO PROM LENGTH BLOCKS CONVERTER 4-662 

BOOT - BOOTSTRAP LOADING AND PROGRAM PATCHING. . 4-146 

BREAK. 89 — 8089 BREAK POINT ROUTINE 4-7FJ7 

BUFFERED LINE PRINTER DRIVER FOR CENTRONIX 181 A - $BLPT 4-"?lft 

BUS MAPPER FOR PROM ' ' 4-^9 



AB46 

AC28 

F7 

F15 

F19 

AB158 

BB11 

BE'lk! 

BB19 

BA6 

BA1 

BA12 

BBIO 

BB18 

BB52 

BB17 

AB37 

BBS 

AB125 

D23 

D2 

AB62 

BA4 

BB52 

AB23 

E38 

E3 

AB133 

AB24 

AD6 

AC22 

AB134 



CALCULATE A CALENDAR 

CALENDAR SUBROUTINE 

CARD READER DRIVER, HOLLERITH TO ASCII CONVERSION 

CASSETTE < AUDIO INTERFACE FOR SDK-80. 

CASSETTE OPERATING SYSTEM FOR THE MDS-800 - COS. 

CERROR - PL/M-80 COMPILER ERROR DISPLAY PROGRAM 

CHARACTER INTERPRETED MEMORY DUMP. 

CHECK SUM - CALCULATE TWO VERIFICATION DIGITS FOR 

DATA STRING 

CHECK BOOK BALANCING PROGRAM - FORTRAN 
CLI - RMX-80 COMMAND LINE INTERPRETER. 

CLOCK SUBROUTINE 

COMBINATION I/O DEVICE FOR UPI-41A 

COMPARE 

COMPARE FILES 

COMPARE OBJECT CODE TAPE WITH MEMORY ' 



50. 



■is: 



4—533 
4-706 
7-191 
4-673 
4-262 

4-626 

7-184 

11-1 

7-18 

4-708 

4-217 

4-535 

4-85 



D48 

D14 

AB115 

AB144 

D59 

AE17 

AB44 

AB129 

D57 

Gl 

D12 

AB141 

AB34 

AB116 

AB16 
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ONTROL DATA OUTPUT 

riNTROLLER FOR HEWLETT-PACKARD 9871 A PRINTER . . . 
ONTROLLER FOR OLIVETTI 28-COLUMN PRINTER - UP I -41 
ONVERSION OF SCIENTIFIC: TO EASILV READABLE NOTATION 
npv FILE FROM PDP-11 DISKETTE TO I SIS- I I DISKETTE 
q _ R CASSETTE OPERATING SYSTEM FOR THE MDS-888. 



RAP'S 



b: 



080 



IBM BI-SVNC GENERATION SUBROUTINE - 8048. 

- CVCLIC REDUNDANCY CHECK 

ASSEMBLER FOR HONEYWELL H316/516/716 <REV 

MCS-48 < INTERPRETIVE!:- 

NOVA 1200 

THE NOVA 1200 <8885> _ 

NOVA 1220.. IBM 360/48 AND CDC 3 

PDP-11 

PDP-11 

VARIAN DATA MACHINE 

PASS© PASCAL PROGRAMS — XREF88. 
'GET - INTERFACE WITH HP2640 CRT TERMINAL 

:IJT AND PASTE EDITOR <PL/M> 

::YCLIC REDUNDANCY CHARACTER GENERATOR 

CYCLIC REDUNDANCY CHECK 

CYCLIC REDUNDANCY CHECK - CRECH 

-.YCLIC REDUNDANCY CHECK. FOR DATA STRING OF 2*16 BYTES 



RC16 
::RECH 
!:ROSS 

ROSS 
::ROSS 
;ROSS 

ROSS 

;ross 

:ROSS 
;:RTBZ 



ASSEMBLER 
ASSEMBLER 
ASSEMBLER 
ASSEMBLER 
ASSEMBLER 
ASSEMBLER 
ASSEMBLER 
REFERENCE 



FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 
FOR 



7-14 

4-563 

4-715 



7-191 

8-74 

4-751 

4-5S 

6—69 

6-71 

6-7 

6—76 

S-9 

6-1 

6-5 

4-408 

4-285 

4— 554 

4-218 

4-48 

4-53 

4-48 



D5 

AB119 

AB149 

BA15 

C35 

D59 

E27 

AB165 

AB9 

C31 

C32 

C9 

C34 

C18 

C2 

C8 

CIS 

AE8 

AC16 

AB117 

AB33 

AB8 

AB9 

AB6 



PROGRAM 



W 



DATA ARRAY MOVE 

DATA GENERAL TO INTELLEC MDS DISKETTE TRANSPORT 

DATA I/O PROM PROCESSOR 

"DATCON Bl" ANALOG TO DIGITAL CONVERSION 

DDUMP - DISKETTE DUMP 

DECIMAL TO/FROM FPAL FLOATING POINT WITH 

ACQUISITION FROM CONSOLE 

DECREMENT H AND L REGISTERS 

DELETE COMMENTS 

DEMONSTRATION PROGRAM WITH TIME FOR RMX/8 
DFT - DISCRETE FOURIER TRANSFORM . . . 
DIAGNOSTIC 1883 - MEMORY VALIDITY CHECK 
DIGITAL TO ANALOG CONVERSION FOR EIGHT OUTPUT* 

DISABLE HOLD - SCREEN MODE 

DISASSEMBLER 

DISASSEMBLER FOR SDK-88 (PSEUDCD .... 
DISK DIRECTORY ALPHABETIZED - ALPHA. . . 
DISK DUMP ROUTINE FOR I COM F D0S-11/M0D88 

DISKETTE DUMP - DDUMP 

DISKETTE RECOVERY PROGRAM, RECOVERY 1. . 

DISPLAY 

DKDUMP - ISIS DISK FILE DUMP 

DOUBLE PRECISION FLOATING POINT PACKAGE - FPAL 
DOUBLE PRECISION INTEGER ARITHMETIC PACKAGE. . 



FLOPP 



PACKAGE 



D( 



7-35 D17 

4-484 AB83 

4-246 AB41 

4-436 AB91 

4-735 AE19 



5-311 

7-9 

4-297 

11-17 

5-315 

4—186 

7-184 

4-289 

4-727 

4-653 

4-383 

4-735 

4-486 

4-424 

5-313 
5—188 



BC27 

D3 

AB52 

G6 

BC29 

AA6 

BB16 

D37 

AB48 



727 AB15 



AB132 

AB55 

AE19 

AA16 

AB88 

AE18 

BC28 

BB34 



DOUBLE PRECISION MULTIPLY 

D0WN88 

DRIVER FOR TEKTRONIX 4010 QRflFIC SCREEN 

DTMF TO HEX CODE 

DUMP OF ISIS DISK FILE . 



5-128 BB22 



4-749 AB164 

4-386 RB78 

5-248 BD3 

4-733 AE18 



EDITOR — HXEDIT. 
WITH THE SURFACE 



ECCO PAPER TAPE READER . . . 
EDITOR, HEXADECIMAL DISK FILE 
EID - CALIBRATION FOR MAPPING 

<EIDCAL-IN> 

ELEMENTARY FUNCTION PACKAGE. 
ENABLE HOLD - SCREEN MODE. . 
ENHANCED MDS TEXT EDITOR Xlll 

ERLIST 

ERROR DISPLAY FOR PL/M-88 COMPILER - CERROR 
ERROR MESSAGE PRINT SUBROUTINE < ISIS- 1 1 AND I KEF 

ERRORP/MESSGP 

EXAMIN 

EXEC 



EXTENDED MATH PACKAGE - FPAL 

EXTENDED PRECISION ARITHMETIC - MATH48 
EXTRACT SELECTED LINES FROM SOURCE 
OR PRINT FILE - EXTRCT .... 



OF CRT 



4-745 AB162 

4-753 AB166 

4-622 AB128 

5-85 BC4 

7—181 D36 

4-482 AB184 

4-291 AB49 

4-673 AE17 



4-639 
4—293^ 
4-470 

5—389 



AE16 

AB58 

AB188 

BC32 

BB58 



4-688 AB124 



FACTORIAL OF A DECIMAL NUMBER 

FAST FLOATING POINT SQUARE ROOT ROUTINE 

FAST & SLOW 

FDUMP 



TO ISI 



FIELD 

FILE GENERATOR - FROM OFFLINE TERMINAL 

FILES - PL/M UTILITY PROCEDURES 

FIRST- IN, FIRST-OUT BUFFER ROUTINE - FIFO. 
FIXED AND FLOATING POINT ARITHMETIC ROUTINES 
FIXED POINT CHEBYSHEV SINE AND COSINE FOR PL/ 

FLAG PROCESSING ROUTINE 

FLEXIBLE NAME LIST MANAGER 

POINT CONSTANT CALCULATOR - FCONST. 

CONVERSION ROUTINE 

DECIMAL AND HEX FORMAT CON VERS 

FORMAT CONVERSION PACKAGE . . 

<FPAL> TO/FROM DECIMAL 
WITH ACQUISITION FROM CONSOLE 
FLOATING POINT INTERPRETER . . 



M 



FLOATING 
FLOATING 
FLOATING 
FLOATING 
FLOATING 



POINT 
POINT 
POINT 
POINT 



FLOATING POINT LOAD AND STORE SUBROUTINES 
FLOATING POINT MATH PACKAGE. . 
FLOATING POINT PACKAGE - DOUBLE PRECISION 
FLOATING POINT PACKAGE FOR INTEL 8888 AND 



II 



US 



ION 



FILE 



ERS 



FPAL 



5-289 
5-141 
4-438 



4-488 



7-162 

4-763 

7-281 

7-186 

5-83 

5-171 

4-171 

4-671 

5-317 

5-381 



BA11 

BC12 

AB93 

AB183 

D53 

AB178 

D64 

D58 

BC3 

BB31 

AB29 

ABO 5 

BC38 

BC24 

BC9 

BC2 



5-311 BC27 

5-222 BC16 

5-333 BC33 

5-1 BC1 

5-313 BC28 
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808© MICROPROCESSORS 5-187 BC15 

FLOATING POINT PROCEDURES 5-91 BC7 

FLOATING POINT SQUARE ROOT 5-127 BC10 

FLOATING POINT UTILITY PROGRAMS FOR USE WITH FPAL. LIB. . . 5-282 BC22 

FLV READER. DRIVER 4-274 AB75 

FORMAT € '~ sS u23 

FORMAT INTEL DATA 4-3 Jb AB60 

FORMFD - FORMFEED TO LINEFEED CONVERSION PROGRAM 4-642 AB130 

FOURIER TRANSFORM < DISCRETE) - DFT 5-315 BC29 

FPAL - EXTENDED MATH PACKAGE 5-323 BC32 

FPAL86. LIB - FLOATING POINT LIBRARY 5-_<ly Bu.il 

FRONT PAGE IDENTIFIER PRINT PROGRAM 4-678 AB13b 

FRUIT MACHINE GAME - TECH-NEL, VI. 8-88 E34 

GAMBOL & " ±± E ? 

GAME OF LIFE W -li0 «?_ _ 

GAMMA FUNCTION SUBROUTINE 5-.iU5 BC2b 

GENERALIZED STEPPER MOTOR DRIVE PROGRAM 7-33 D21 

GLANCE 4 - 3 * fiB88 

QPflPH 7-134 D45 

GRAY TO BINARY CONVERSION 5-58 BB14 

HANDLER FOR TALLY PTP .""2® 8 fl ?r 8 

HANG 8— 7y E29 

HAZELTINE 2000 CRT FUNCTION DRIVER 4-426 AB89 

HEWLETT PACKARD CALCULATOR TO MDS80O 

I/O CONTROL PROGRAM — HP 10 4-563 flBlla 

HEX CONVERT - CONVERT INTEL HEX TO PROLOG HEX FILE . . . . 6-27 C20 
HEX-FILE FORMAT TO OBJ. -FILE FORMAT WITH SYMBOL 

TABLE - HEXSYM 4-611 ABl2b 

HEX TO ASCII CONVERSION 5-256 BB4b 

HEX TO DECIMAL CONVERSION 5-76 BA2 

HEX FILE INTO PROM LENGTH BLOCKS CONVERTER - BLOCK .... 4-662 HB133 

HEX FORMAT PAPER TAPE DUMP FOR SDK 4-238 ABj:y 

HEX TAPE LOADER FOR SDK 4-234 AB38 

HIGH SPEED PAPER TAPE READER WITH STEPPER MOTOR CONTROL. . 4-119 AC7 

HISTOGRAM 5-238 BD1 

HORSERACE 8-a4_ E_<2 

HXEDIT - HEXADECIMAL DISK FILE EDITOR 4-75 S ABlbb 



18080 CROSS ASSEMBLER FOR INTEL 8080/8085 MICROPROCESSOR 
IBM B I -SYNC CRC16 GENERATION SUBROUTINE 

IBM SELECTRIC INPUT PROGRAM 

IBM SELECTRIC OUTPUT PROGRAM 

ICE-80 DISASSEMBLER 

ICE-80: TRACE. ICE 

I -COMMAND - INSERT DATA IN HEX FORM FROM TTY INTO RAM 



6" 


-47 


C25 


4- 


-751 


AB165 


4- 


-460 


AB96 


•p_ 


-55 


D22 


4- 


-295 


AB51 


4- 


-747 


AB163 


4- 


-76 


AB15 
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IDENT1 - FRONT PAGE IDENTIFIER PRINT PROGRAM 

INPUT/OUTPUT COMMANDS FOR MD<^ 

INPUT/OUTPUT DIAGNOSTIC: 8688 

INSERT TAB CHARACTERS FOR SPACES .... 

INTEL FLOATING POINT NUMBER TO ASCII STRING 

INTEL FORMAT HEX DATA FILE LOAD/READ 

INTELLEC 8/M0D80 MONITOR 

8/M0D89 - SILENT 768 INTERFACE. 

MDS DIAGNOSTIC CONFIDENCE TEST VERS I 

MDS MAILING LIST - FORTRflN-80 

MDS MAILING LIST MERGE 



INTELLEC 
INTELLEC 
INTELLEC 
INTELLEC 
INTELLEC 
INTELLEC 



MDS MONITOR VERSION 2. 

8 TEXT EDITOR .... 
INTERFACING THE MDS AND HP2644 
INTERRUPT DRIVEN CLOCK ROUTINE 







INTERRUPT HANDLER < RE-ENTRANT) 
INTERRUPT SERVICE ROUTINE. 

INVERT DATA IN RAM 

I/O ROUTINE FOR TI SILENT 700 TERMINAL 

I/O SIMULATION MACROS 

I/O TEST PROGRAM FOR SBC 80/28 - IOTEST. 



ON 


1 


1 







4-678 
4-222 
4-596 
4-462 
5-268 
4-432 
4-366 
4-128 
4-360 
7-193 
7-199 
4-368 
4-362 
4-308 
t' — c-k! 

4-132 

4-130 

7-110 

4-412 

4-34 

4-549 



AB136 

AB36 

AA20 

AB98 

BC19 

AB90 

AB69 

ACS 

AA13 

D60 

D63 

AB70 

AB67 

AC18 

D13 

AD4 

AD3 

D39 

AB85 

AC3 

AA19 



JOIN - MERGE TWO HEX FILES 
JULIAN DATE ROUTINE. . . . 



4-492 AB108 
7-118 D41 



K, PROGRAM TRAP AND DUMP ROUTINE 
KALAH 



KAPIAR, VI. 2 - GENERAL PURPOSE MACROPROCE'^fiR 

KEYBOARD SCANNER 

KEVPAD MONITOR FOR SDK-86 

KEVWORD FILE SEARCH 

KILL THE ROTATING BIT. . . 



4-90 

8— 28 

4-743 

4—392 

4-704 

4-739 

8-50 



AB17 

El© 

AB161 

AB81 

AB143 

AB159 

E18 



LANDER 

LERR - LIST ASSEMBLV ERRORS. . 
LEGIBLE PAPER TAPE .... 

LEWTHWAITE-S GAME 

LINEAR SVSTEM < GAUSS ELIMINATION::-— LISV 

LISP INTERPRETER 

LIST - LIST ERRORS OR SPECIFIED LINES ON CON^ 

LIST DEVICE PROGRAM 

LIST SCR 

LIST 1 - HIGH SPEED LIST PROGRAM FOR INTELLEC 
LIST/PRINT/TVPE "LIST SRC" ON DISKETTE 

LLL BASIC- 1 1 INTERPRETER 

LLL/CHERNACK BASIC INTERPRETER 



OLE 



8-70 

4—346 

4--F57 

8-45 

5-303 

9—29 

4-319 

4-190 

i^— .;* ■CM 

4-30 

4-307 

9—7 



E25 

AB63 

AB10 

E15 

BC25 

F17 

AE1 

AA7 

AB61 

AC 2 

AB56 

F7 

F15 



© /'7Q 



LORD 

LORD RND STORE SUBROUTINES, FLOATING POINT 

LOCATION INCLUDED POST ASSEMBLY PROCESSOR 

LOG BASE 2 

LRC PRINTER CONTROLLER - UP I -41 4-69 

LSORT 



MACRO ASSEMBLER, 8008 < VERS I ON 2. 0> — ASM08 . 

MACRO ASSEMBLER FOR DG NOVA 

MACROPROCESSOR, GENERAL PURPOSE - K.APIAR, VI. 2 

MAILING LABEL PROGRAM - PL/M-80 

MAILING LIST MERGE PROGRAM 

MAILING LIST PROGRAM FOR INTELLEC MDS - FORTRAN 
MAIN ROUTINE DDUMP ''DISKETTE DUMP ROUTINE) . 



MASTERMIND 



MASTERMIND 8080. . . . 
"MASTERMIND 8080" FOR 
MASTERMIND FOR SDK-86. 

MATCH 

MATCH 
MATH45 
MAZE . 
MAZE . 



SBC 80/10. 



GAME ... 
) - EXTENDED 



PRECISION ARITHMETIC 



MBCD Nl X N2 BYTES DECIMAL MULTIPLY SUBROUTINE 
MCS-48 - SQUARE ROOT ROUTINE . . . 
MDS BACK TO BACK DATA TRANSFER . . 
MDS SERIES- I I - DUMB TERMINAL. . . 

MEMORY COMPARE 

MEMORY DIAGNOSTIC PROGRAM 

MEMORY DUMP 

MEMORY TEST FOR THE 8080 

MEMORY TEST PROGRAM 

USCOPE 820 TEST INSTRUMENT, 

I SBC 80/10 DIAGNOSTIC PROGRAM. . . 
MINITH - RMX MINIMAL TERMINAL HANDLER 
MODEL 101 CENTRONICS PRINTER HANDLER. 



MON 256 
MONITOR 
MONITOR 
MONITOR. 
MONITOR 
MONITOR 
MONITOR 



— 256-BYTE PROM 
FOR ISBC80/05 OR 
FOR ISBC80/10 
FOR ISBC80/20 
FOR ISBC80/30 

FOR SDK85 

ROUTINES FOR A 3M-DCD1 



MONITOR .... 
80/04 - M0N805. 
OR 80/10A - MON810 



OR 80/20- 
- MON830 



4 - MON820. 



CASSETTE TAPE 



MORSE CODE GENERATOR 
MOUSE 



MSAVE/MLOAD UTILITIES FOR MDS-800 WITH DOS 
MUL/DIV MULTI-PRECISION PACK FOR 8O80. . . 
MULT I PLV/D I V I DE SUBROUT I NES 

24 BIT MULTIPLY FOR 48 BIT QUOTIENT 



DR. 



\6 



r- 



4-380 


AB77 


5-333 


BC33 


6—67 


C30 


5-57 


BB15 


4-698 


AB140 


7-85 


D31 


9-13 


FIO 


6-49 


C26 


4-743 


AB161 


7-178 


D56 


7-199 


D63 


7-193 


D60 


4-406 


AB84 


8-13 


E6 


8-66 


E23 


y — 6t> 


E24 


8-86 


E33 


8—64 


E22 


8-35 


E12 


5-309 


BB50 


8-18 


E7 


8-39 


E13 


5-232 


BA14 


5-331 


BB54 


4-474 


AB102 


4-761 


AB169 


4—199 


AB32 


4-83 


AA3 


4-17 


AB3 


4-250 


AA9 


4-271 


AA11 


4-545 


AA18 


11-8 


G3 


4-114 


AC6 


4—260 


AB43 


4-590 


AB121 


4-592 


AB122 


4-594 


AB123 


4—679 


AB137 


4-731 


AB157 


4-650 


AB131 


7-12 


D4 


8-90 


E35 


4-422 


AB87 


5-115 


BB21 
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48 BIT BV 24 BIT DIVIDE 5-329 BB52 

NATURAL LOGARITHM 5-146 BB2F, 

N-BVTE BINARV MULTIPLICATION AND LEADING ZERO BLANKING . ' 5-101 BB28 

NIM 8-1 " El " 

NIM 8 _ 4 E2 

NON-ENCODED KEY BOARD SUBROUTINE 4-178 AB76 

NOVA CROSS ASSEMBLER - INTEL 8888. . . 6-11 ~ m" 

NUMBERS ' : r._-. F cq 



OCTAL CODE CONVERSION FOR PDP-11 

OCTAL DEBUGGING PROGRAM <ODT> FOR THE MCS-80 COMPUTER 

OCTAL PROM PROGRAMMING 

OCTHEX 



OFF-LINE TERMINAL TO I SIS- 1 1 FILE GENERATOR. . 
OLIVETTI 20-COLUMN PRINTER CONTROLLER - UP I -41 

ONLINE, UPLOAD, DOWNLOAD 

OPERATING SYSTEM - CASSETTE FOR MDS-800 - COS. 
OPTIMISED ULTRA FAST FLOATING POINT PACKAGE. . 
OUT IN - PR0MPT48 OR PROMPTS© INTERFACE . 
OUTPUT MESSAGE GENERATOR 



152 
91 



b 

9 

4 

7 

4-762 

4-715 

4-502 

7-191 

5-268 

4-721 

7-156 



C19 

F8 

AB25 

D22 

AB170 

AB149 

AB111 

D59 

BC18 

AB152 

D50 



P2708 PROM PROGRAMMING ROUTINE 

PAGE BREAK FOR TEKTRONIX 4810 I/O GRAPHICS TERMINAL 

PAGE LISTING PROGRAM 

PAPER TAPE LEADER I. D 

PAPER TAPE READER <ECCO> 

PAPER TAPE REFORMATTER FOR SDK . 

PASCAL COMPILER, SEQUENTIAL. . . 

PASS - PARAMETER PASSING ROUTINE 

PDP-11 BINARY FILE TO INTEL HEX FILE CONVERTER 

PDP-11 DISKETTE FILE COPY TO ISIS-II DISKETTE FILE . 
PDP-11 PROGRAM LOAD TO HEX, DUMP, & VERIFY 

PILOT-80 ISIS-II VERSION 2.8 

PL/M 88 PASS 2 

PL/M FLOATING POINT INTERFACE 

PL/M HISTOGRAM PROCEDURE AND RANDOM NUMBER GENERATOR 
PL/M MULTIPLE PERCISION ARITHMETIC 

PL/M UTILITY PROCEDURES - FILES. . 

PLOTA 

PRINT - LIST FILE ON LP UP TO 255 TIMES. ... 
PRINT PROGRAM FOR G. E. TERMINET-1200 PRINTER 
PRINT OUT SOURCE FILE ON FLOPPY DISK . 
PRINT TEXT FOR SBC 80/10 



4-400 

4-280 

4—67 

7-81 

4-745 

4-242 

9—19 

6-21 

6-78 
6—22 
9-28 
6-21 

.1— .1 ': 

5-199 
5-287 

7-281 
7-195 
4-488 
4—494 

4—496 
4-588 



AB82 

AC15 

AB12 

D28 

AB162 

AB48 

F12 

D15 

C21 

C25 

F16 

C17 

BC8 

BB29 

BB49 

D64 

D61 

AB186 

AB189 

AB118 

AB120 
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PRQGRfiM TEXT LORD 4-513 

PROM BUS MAPPER 4—669 

PROM LENGTH BLOCKS FROM HEX FILE CONVERTER - BLOCK .... 4-662 

PROM PROGRfiMMER FOR INTELLEC 8 4-23 

PR0MPT48 DOWNLOAD FOR SERIES II - SEND48 4-719 

PR0MPT48 INTERACTIVE CONTROLLER - REM0TE48 4-723 

PR0MPT48 OR PRGMPT88 INTERFACE - OUT IN 4-721 

PR0MPT88/85 - DOWNLOAD FOR SERIES II - D0WN80 4-749 

PROMPT PONG 8-54 

PROPORTIONAL POWER CONTROL IMAGE BUILDER 4-166 

PUNCH BINARY TAPE 4-194 

PUNCH TEST OR TTV READER/PUNCH TEST 4-98 

QUICKSORT PROCEDURES 7-1 

RAM CHECK 4-269 

RAM TEST PROGRAM 4-5 

RANDOM NUMBER GENERATOR - RINGEN 5-189 

RRNDQM*BITS 5-284 

RATE - BAUD RATE SELECTION FOR MDS 226 OR 238 SYSTEM . . . 4-737 

REACT 8-56 

READ AND INTERRUPT MODIFICATIONS FOR INTELLEC 8/M0D88. . . 4-27 

READ/WRITE ROUTINES FOR INTERCHANGE TAPES 4-164 

READER TEST 4-183 

REAL TIME CLOCK SERVICE ROUTINE 7-168 

REAL TIME EXECUTIVE 4-162 

REAL TIME MONITOR 4-334 

RECOVR - TEXT EDITOR RECOVERY PROGRAM 4-418 

RELATIVE JUMP ROUTINE 7-114 

RELOCATABLE FMATH AND XMATH, 

8885 FLOATING POINT PACKAGE 5-286 

REM0TE48 - INTERACTIVE CONTROLLER OF PR0MPT48 4-723 

RESTART ROUTINE, MODIFIED SDK-88 4-759 

RETRIEVE - MDS TEXT EDITOR RECOVERY PROGRAM 4-617 

RIA88 9-23 

RMSTF - INTEGRATION ROUTINE 5-162 

RMX/88 - BASED KEYBOARD INPUT HANDLER SUBROUTINE 11-18 

RMX/88 COMMAND LINE INTERPRETER - CLI 11~1 

RMX/88 DEMONSTRATION PROGRAM WITH TIME 11-17 

RMX/88 DRIVER FOR ISBC534 - HND534 11-15 

RMX MINIMAL TERMINAL HANDLER - MINITH 11-8 

RMX MINIMAL TERMINAL OUTPUT - WRMIN 11-3 

RTCOPY - COPY FILE FROM PDP-11 DISKETTE <RT-11> 

TO ISIS-II DISKETTE FILE 6-78 

RUN 8 7-78 



AE13 

AB134 

AB133 

AB4 

AB151 

AB153 

AB152 

AB164 

HB2y 
AB31 
AA4 



Dl 



AA18 

AA1 

E'E'_£fc" 

BB48 

AB158 

E28 

AD2 

AC9 

AA5 

D52 

HB«£.r 

AB59 
AB86 
D48 

BC23 

AB153 

AB168 

AB127 

F14 

BB28 

G4 

Gl 

G6 

G5 

G3 

02 

C35 
D28 
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SRMPLE AUTOMATIC TEST EQUIPMENT 4-456 AA15 

SAVE/RESTORE CPU STATE ON AN INTERRUPT . . 4-1 ^ AD1~ 

SBC COMMUNICATOR ' 4-459 RB95 

SBC SOP REAL TIME CLOCK 7-158 D51 

SBC 86/10 8255 TEST ' " 4-537 RR17 

SBC 80/10 INTERACTIVE MONITOR ' 4-410 RE c 

SBC 80/10 PORT I/O EXERCISER ' 4 -- <7 -> m ?^ 

SBC-310 FLOATING POINT SYSTEM FOR USE WITH SBC 88/20 . .' 5-284 BC22 

-•CHN 4—384 AE6 

SCAN — 8048 - SEVEN SEGMENT DISPLAY INTERFACE 

SUBROUTINES " 4 „« ?20 flB±±0 

SCANNER & SELECTIVE FILE LINE PRINTER. ... 4-799 flB 156 

SDK-80 AUDIO CASSETTE INTERFACE - <TAPE> . . 4-706 RB144 

SDK-80 KEYBOARD MONITOR " 4--^ flBS4 

SDK-80 PAPER TAPE PUNCH ROUTINE 7-S : T D34 

SDK-80 PSEUDO DISASSEMBLER ' 4-707 RB1S5 

SDK-80 RESTART ROUTINE * 4-7^9 rpi tq 

^DK-Sa TPRP Hblbb 

~t,: .Z. rRHF 4-466 AEIO 

SDK-85 - MONITOR FOR THE 8085 SYSTEM DESIGN KIT 4-7"<l RB15^ 

SDK-86 KEYPAD MONITOR VI. 1 ' 4-794 m± l-< 

SDK-86 SERIAL MONITOR VI. 1 * 4 _7 02 AB142 

SDK PROM PROGRAMMER 4-4^4 rrc.9 

SEARCH - KEYWORD FILE SEARCH .... 4-7^9 AB159 

SELECTIVE FILE LINE PRINTER & SCANNER ' 4-729 AB156 

SEND48 DOWNLOAD TO PR0MPT48 FOR SERIES II 4-719 orisi 

SENSOR MATRIX CONTROLLER - UPI-41A .... 4-S 8ft flBi ;Q 

SEQUENTIAL PASCAL COMPILER .... 9-lV Fl'~"* 

SERIAL MONITOR VI. 1 FOR SDK-86 ' 4-799 fiP.149 

SERIAL PROM PROGRAMMER * 7-172 D55 " 

SERIES II MDS - DUMB TERMINAL ' 4-7^.1 RB169 

SETS HORIZONTAL TABS ON TERM I NET 7-1^0 D44 " 

SHELLSORTING ROUTINE 7 -t,0~ D1£ . 

SIM48 - 8048 SIMULATOR ' 6-74 r2 4 

SI NX, COSX SUBROUTINE ' s-158 RR?7 

SLALOM - PL/M '.'.'.'. 8-8^" E31 

SLOT MACHINE ^^ ^^ 

SMAL: SYMBOLIC MICROCONTROLLER ASSEMBLY LANGUAGE 9-1 Fl 

SMPY16: 16-BIT 2"S COMPLEMENT SIGNED MULTIPLICATION 5-12 BB4 

SNAP DUMP 8080 * 4-^0 r^J 

SOFTWARE STACK ROUTINES FOR 8008 ... 4-176 AD5 

SOFTWARE TIMERS - PROGRAMMABLE ' 4-755 AD7 

SORT - GENERAL SORTING PROCEDURE 7-197 D62 

SOURCE PAPER TAPE TO MAGNETIC CASSETTE '.'.'.'. 4-72 AB14 

SQUARE ROOT - MCS-48 5-31:1 BB54 

SQRTF- CALCULATES 8-BIT ROOT OF 16-BIT NUMBER ...... 5-133 BB24 

STAGE2 7-79 F20 

STATEMENT COUNTER 4-325 RB*7 

— ' *-• 4— «=j|?|^; AE12 

STRING MANIPULATION PACKAGE '.'.'.'.'.'.'.'. 7-154 D49 
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STRUCTURED ASSEMBLER FOR 8989 

SUBROUTINE DMULT < DECIMAL MULT I PL I CAT I ON> 
SUBROUTINE LOG - COMMON LOGARITHMS 

SUBROUTINE SORT 

SYMBOL CROSS-REFERENCE 

SVMBOL TABLE INSERTER FOR AB22 . . . 
SVMBOL TABLE PROGRAM FOR 8888/8085 VI 
''VMBOL TABLE DUMP FOP INTFLLFf: P./MODRS 
ivMBOL TABLE LIST ROUTINE 



9- 


-"•:' 


F2 


er_ 


-187 


BA5 


5- 


-148 


BC13 


5- 


-137 


BC11 


6- 


-53 


C27 


4- 


-725 


AB154 


4- 


-515 


AE14 


4- 


-257 


AB42 


4- 


-181 


AB30 



TABS - EXPANDS FILES TO INCLUDE CONTROL 
TALLV - USE TALLY 2200 LINE PRINTER IN 
ASSEMBLY STAGE OF PROGRAMMING 

TALLY R2050 HSPTR DRIVER 

TAPE DUPLICATOR 

TAPE LABELER FOR MDS 

TELEPROCESSING BUFFER ROUTINE. . . 

TERMINAL EDITOR 

TERMINET 308 

TERM I NET 1200 

TEXT EDITOR, ENHANCED MDS, Xlll. . 

TEXT EDITOR 

TEXT PROCESSOR 

TEXT STORAGE PROGRAM 

THERMOCOUPLE LINEARIZATION <TYPE J> 
THUMBWHEEL SBC 80/10 TEST PROGRAM. 

TIC-TAC-TOE 

T I C-T AC-TOE O DIMENSIONAL*. . . . 
TIME SHARING COMMUNICATIONS. . . . 
TIMER - MEASURES EXECUTION TIME OF USER PROGRAM 

TIMERS - PROGRAMMABLE SOFTWARE 

TIMIT - INTERRUPT DRIVEN REAL TIME CLOCK 
T I. SILENT 700 INTERFACE - INTELLEC MDS 
T. I. SILENT 700 SBC 80 MONITOR INTERFACE 

TRACE - PROGRAM TRACE AND DEBUGGER 
& REGISTER PRINT OUT .... 

ROUTINE 

VERSION 7. 

ICE 

TRANSFORMATION ROUTINE FOR COORDINATE DIGITS FR 

EID INTO X-Y COORDINATES OF CRT <EID-CALMA>. 

TTY BINARY DUMP ROUTINE 

TTY BINARY LOAD ROUTINE 

TTY DIAGNOSTIC .... 

TYPE 

TYPE 

TYPE 



1 4-358 AB66 



TRACE 
TRACE 
TRACE 
TRACE. 



ROUTINE 



K. 



LIST FILE ON CONSOLE BY PAGE 
T. C. LINEARIZER 



:»m 



4-112 


ACS 


4-108 


AC4 


4~36 


AB5 


4-61 


ABlei 


7-73 


D26 


4-124 


AB19 


7-124 


D43 


7—122 


D42 


4— 482 


AB104 


4-710 


AB146 


4-708 


AB145 


7-42 


D19 


7-108 


D38 


7-144 


D47 


8-46 


E16 


8-72 


E26 


7-47 


D20 


4-741 


AB160 


4-765 


AD7 


7-65 


D24 


4-215 


AC11 


4— 3£«8 


AB79 


4-203 


AA8 


4-468 


AE11 


4-320 


AE2 


4-351 


AE5 


4-747 


AB163 


4-624 


AB128 


4-12 


ABc- 


4-7 


AB1 


4-414 


AA14 


4-301 


AB53 


4-490 


AB107 


7-97 


D35 
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UP I -41 8-DIGIT LED DISPLflV CONTROLLER 4-686 RB138 

UP I -41 LRC PRINTER CONTROLLER 4-698 RB148 

UP I -41 - OLIVETTI 20-COLUMN PRINTER CONTROLLER ...... 4-715 RB149 

UPI-41R - 8278 KEVBOflRD/DISPLRV CONTROLLER 4-711 RB147 

UPI-41R COMBINATION I/O DEVICE 4-766 AB141 

UPI-41R SENSOR MATRIX CONTROLLER 4-688 RB139 

UPP-41A - 8295 DOT MATRIX PRINTER CONTROLLER 4-713 AB14A 

UTILITV MACROS FOR 8686 4-376 AB72 

VDU DARTS 8-76 E28 

VIDEO DRIVER ...... 4-369 AC19 

WIPE - FILE DELETER 4-356 AB65 

WORD GAME.. THE 8-8 E4 

WRITER - OUTPUT PROCEDURES FOR PL/M-86 4-6"?5 RE1FJ 

WRMIN - RMX MINIMRL TERMINRL OUTPUT 11-3 Q2 
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